--- loncom/lonnet/perl/lonnet.pm	2000/07/17 16:37:14	1.17
+++ loncom/lonnet/perl/lonnet.pm	2000/07/17 21:36:33	1.18
@@ -595,7 +595,9 @@ sub assignrole {
 
 sub dirlist {
     my $uri=shift;
-    $uri=~/^\/res\/(\w+)\/(\w+)\//;
+    $uri=~s/^\///;
+    $uri=~s/\/$//;
+    $uri=~/^res\/(\w+)\/(\w+)/;
     my $listing=reply('ls:'.$perlvar{'lonDocRoot'}.'/'.$uri,homeserver($2,$1));
     return split(/:/,$listing);
 }