--- loncom/lonnet/perl/lonnet.pm	2011/11/09 13:14:20	1.1145
+++ loncom/lonnet/perl/lonnet.pm	2011/11/29 11:54:33	1.1146
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1145 2011/11/09 13:14:20 bisitz Exp $
+# $Id: lonnet.pm,v 1.1146 2011/11/29 11:54:33 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9751,9 +9751,11 @@ sub rndseed {
     if (!defined($symb)) {
 	unless ($symb=$wsymb) { return time; }
     }
-    if (!$courseid) { $courseid=$wcourseid; }
-    if (!$domain) { $domain=$wdomain; }
-    if (!$username) { $username=$wusername }
+    if (!defined $courseid) { 
+	$courseid=$wcourseid; 
+    }
+    if (!defined $domain) { $domain=$wdomain; }
+    if (!defined $username) { $username=$wusername }
 
     my $which;
     if (defined($cenv->{'rndseed'})) {
@@ -9761,7 +9763,6 @@ sub rndseed {
     } else {
 	$which =&get_rand_alg($courseid);
     }
-
     if (defined(&getCODE())) {
 
 	if ($which eq '64bit5') {