--- loncom/lonnet/perl/lonnet.pm	2000/10/10 18:46:53	1.42
+++ loncom/lonnet/perl/lonnet.pm	2000/10/11 18:15:16	1.43
@@ -62,7 +62,7 @@
 # 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer
 # 10/04 Gerd Kortemeyer
 # 10/04 Guy Albertelli
-# 10/06,10/09,10/10 Gerd Kortemeyer
+# 10/06,10/09,10/10,10/11 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -1101,7 +1101,7 @@ sub numval {
 
 sub rndseed {
     my $symb;
-    unless ($symb=&symbread($ENV{'request.filename'})) { return ''; }
+    unless ($symb=&symbread($ENV{'request.filename'})) { return time; }
     my $symbchck=unpack("%32C*",$symb);
     my $symbseed=numval($symb)%$symbchck;
     my $namechck=unpack("%32C*",$ENV{'user.name'});