--- loncom/lonnet/perl/lonnet.pm	2001/01/09 19:55:31	1.89
+++ loncom/lonnet/perl/lonnet.pm	2001/01/09 23:05:22	1.93
@@ -84,6 +84,8 @@
 # 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer
 # 05/01/01 Guy Albertelli
 # 05/01,06/01,09/01 Gerd Kortemeyer
+# 09/01 Guy Albertelli
+# 09/01 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -1039,6 +1041,7 @@ sub allowed {
            if ($envkey=~/^user\.role\.(st|ta)\.([^\.]*)/) {
                my $courseid=$2;
                my $roleid=$1.'.'.$2;
+               $courseid=~s/^\///;
                my $expiretime=600;
                if ($ENV{'request.role'} eq $roleid) {
 		  $expiretime=120;