--- loncom/lonnet/perl/lonnet.pm	2009/10/31 21:38:00	1.1039
+++ loncom/lonnet/perl/lonnet.pm	2009/10/31 23:37:00	1.1040
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1039 2009/10/31 21:38:00 raeburn Exp $
+# $Id: lonnet.pm,v 1.1040 2009/10/31 23:37:00 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5055,7 +5055,7 @@ sub allowed {
                 my $uname = $env{'user.name'};
                 if ($uri =~ m{^\Q$udom\E/?$}) {
                     $ownaccess = 1;
-                } elsif ($uri =~ m{^\Q$udom/\E/$uname/}) {
+                } elsif ($uri =~ m{^\Q$udom\E/\Q$uname\E/?}) {
                     unless ($uri =~ m{\.\./}) {
                         $ownaccess = 1;
                     }