diff -Naur qle-0.0.18/qle-0.0.18.pl qle-0.0.18-mod/qle-0.0.18.pl
--- qle-0.0.18/qle-0.0.18.pl	2009-12-21 19:13:12.000000000 +0200
+++ qle-0.0.18-mod/qle-0.0.18.pl	2010-01-10 22:52:53.000000000 +0200
@@ -50,6 +50,7 @@
 
     # Build name of config file from name of executable file:
     my ($progName, $pathName, $suffix) = fileparse("$0", qr/\.[^.]*/);
+    my $pathName = "/etc/qle/";
     my $configFile;
     if (File::Spec->file_name_is_absolute($pathName)) {
       $configFile = "$pathName" . "$progName" . ".conf";
@@ -883,8 +884,14 @@
         $doScp = process_scp( \@scpArray, $config{masterScp} );
     }
     else {
-        print "Can't read super check partial file $config{masterScp}\n",
-          "No super check partial.\n";
+	stat ( "/usr/share/qle/$config{masterScp}" );
+	if ( -r _ ) {
+		$doScp = process_scp( \@scpArray, "/usr/share/qle/$config{masterScp}" );
+	}
+	else {
+		print "Can't read super check partial file $config{masterScp}\n",
+		"No super check partial.\n";
+	}
     }
 
     my $scpWindow;
@@ -928,7 +935,13 @@
             \%ituzHash, $config{ctyDat} );
     }
     else {
-        print "Can't read cty.dat file $config{ctyDat}\n";
+	stat ( "/usr/share/qle/$config{ctyDat}" );
+	if (-r _) {
+		process_cty_dat( \%ctyHash, \%contHash, \%cqzHash,
+	            \%ituzHash, "/usr/share/qle/$config{ctyDat}" );
+	} else {
+		print "Can't read cty.dat file $config{ctyDat}\n";
+	}
     }
 
     # Set up frame, used for entering new QSOs:
@@ -6643,7 +6656,7 @@
     use Tk::Bitmap;
 
     #   use Tk::Image;
-    my $kiwi = "kiwi-blk-52x52.xbm";
+    my $kiwi = "/usr/share/qle/kiwi-blk-52x52.xbm";
     my $image = $window->Bitmap( -file => $kiwi )
       or warn "Image file $kiwi not found :-( \n";
 
@@ -7323,7 +7336,7 @@
 # subroutine process_scp
 #
 # Purpose: Reads file $config{masterScp}, turning the info into an
-#          array.
+#          array
 #
 # Args:
 #          Reference to super check partial array