Index: app/src/kon/kon
===================================================================
--- app/src/kon/kon	(revision 246900abc92b7d822ca17bd69aeb06d2b30db588)
+++ app/src/kon/kon	(revision 20b4e44e7537762f6aceb72b039f6e8f8a50e201)
@@ -1,6 +1,13 @@
 #!/usr/bin/perl -w
+
+#package:	UAM Text Tools
+#component:	kon (search context)
+#version:	1.0
+#author:	Tomasz Obrebski
+
 use strict;
 use Getopt::Long;
 use locale;
+use File::HomeDir;
 
 Getopt::Long::Configure('no_ignore_case_always');
@@ -19,5 +26,6 @@
 
 my $systemconfigfile='/usr/local/etc/utt/kon.conf';
-my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf";
+#my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf";
+my $userconfigfile=home()."/.utt/kon.conf";
 
 #read configuration files###########################