--- loncom/lonnet/perl/lonnet.pm	2004/12/16 21:30:21	1.578
+++ loncom/lonnet/perl/lonnet.pm	2004/12/17 22:40:09	1.579
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.578 2004/12/16 21:30:21 banghart Exp $
+# $Id: lonnet.pm,v 1.579 2004/12/17 22:40:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2777,7 +2777,7 @@ sub customaccess {
 # ------------------------------------------------- Check for a user privilege
 
 sub allowed {
-    my ($priv,$uri)=@_;
+    my ($priv,$uri,$symb)=@_;
     $uri=&deversion($uri);
     my $orguri=$uri;
     $uri=&declutter($uri);
@@ -3058,7 +3058,7 @@ sub allowed {
 
    if ($thisallowed=~/X/) {
       if ($ENV{'acc.randomout'}) {
-         my $symb=&symbread($uri,1);
+	 if (!$symb) { $symb=&symbread($uri,1); }
          if (($symb) && ($ENV{'acc.randomout'}=~/\&\Q$symb\E\&/)) { 
             return ''; 
          }