--- loncom/lonnet/perl/lonnet.pm	2001/01/19 21:19:28	1.99
+++ loncom/lonnet/perl/lonnet.pm	2001/01/19 21:37:39	1.100
@@ -1846,9 +1846,9 @@ sub rndseed {
     { 
       use integer;
       my $symbchck=unpack("%32C*",$symb) << 27;
-      my $symbseed=numval($symb)%$symbchck << 22;
+      my $symbseed=numval($symb) << 22;
       my $namechck=unpack("%32C*",$ENV{'user.name'}) << 17;
-      my $nameseed=numval($ENV{'user.name'})%$namechck << 12;
+      my $nameseed=numval($ENV{'user.name'}) << 12;
       my $domainseed=unpack("%32C*",$ENV{'user.domain'}) << 7;
       my $courseseed=unpack("%32C*",$ENV{'request.course.id'});
       my $num=$symbseed+$nameseed+$domainseed+$courseseed+$namechck+$symbchck;