Index: tools/FreeBSD5_x/g_list.pl
===================================================================
--- tools/FreeBSD5_x/g_list.pl	(revision 5004)
+++ tools/FreeBSD5_x/g_list.pl	(revision 5157)
@@ -6,5 +6,5 @@
 
 # Config located at other file
-my $conf_file="/home/genesis/tools/FreeBSD5_x/genesis.conf";
+my $conf_file="./genesis.conf";
 do($conf_file) || die("Cann't open $conf_file");
 
@@ -56,5 +56,5 @@
     select(STDERR); $| = 1;     # make unbuffered
     select(STDOUT); $| = 1;     # make unbuffered
-    system("$svn update $home");
+    system("$svn update $ndir");
     printline("</PRE>");
     printline("<H2>Done.<H2><P>");
@@ -115,5 +115,5 @@
   };
 
-  opendir(DIR, $ndir) || die "can't opendir $home: $!";
+  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
   @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
   closedir DIR;
Index: tools/FreeBSD6_x/g_list.pl
===================================================================
--- tools/FreeBSD6_x/g_list.pl	(revision 5004)
+++ tools/FreeBSD6_x/g_list.pl	(revision 5157)
@@ -6,5 +6,5 @@
 
 # Config located at other file
-my $conf_file="/home/genesis/tools/FreeBSD6_x/genesis.conf";
+my $conf_file="./genesis.conf";
 do($conf_file) || die("Cann't open $conf_file");
 
@@ -56,5 +56,5 @@
     select(STDERR); $| = 1;     # make unbuffered
     select(STDOUT); $| = 1;     # make unbuffered
-    system("$svn update $home");
+    system("$svn update $ndir");
     printline("</PRE>");
     printline("<H2>Done.<H2><P>");
@@ -115,5 +115,5 @@
   };
 
-  opendir(DIR, $ndir) || die "can't opendir $home: $!";
+  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
   @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
   closedir DIR;