--- loncom/lond	2000/06/30 18:00:39	1.14
+++ loncom/lond	2000/07/14 07:43:15	1.15
@@ -7,7 +7,7 @@
 # 12/7,12/15,01/06,01/11,01/12,01/14,2/8,
 # 03/07,05/31 Gerd Kortemeyer
 # 06/26 Scott Harrison
-# 06/29,06/30 Gerd Kortemeyer
+# 06/29,06/30,07/14 Gerd Kortemeyer
 #
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
@@ -217,7 +217,7 @@ sub propath {
     my ($udom,$uname)=@_;
     $udom=~s/\W//g;
     $uname=~s/\W//g;
-    my $subdir=$uname;
+    my $subdir=$uname.'___';
     $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
     my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
     return $proname;