--- loncom/homework/default_homework.lcpm	2001/10/01 20:15:30	1.37
+++ loncom/homework/default_homework.lcpm	2001/10/05 22:28:31	1.38
@@ -7,7 +7,7 @@
 # 05/31/2001 H. K. Ng
 #
 #init some globals
-$RANDOMINIT=0;
+$hidden::RANDOMINIT=0;
 $pi=atan2(1,1)*4;
 $rad2deg=180.0/$pi;
 $deg2rad=$pi/180.0;
@@ -191,7 +191,10 @@ sub hinton {
 
 sub random {
   my ($start,$end,$step)=@_;
-  if ( ! $RANDOMINIT ) { srand($external::randomseed); $RANDOMINIT=1; }
+  if ( ! $hidden::RANDOMINIT ) {
+    srand($external::randomseed);
+    $hidden::RANDOMINIT=1;
+  }
   my $num=1+int(($end-$start)/$step);
   my $result=$start + int(rand() * $num)*$step;
   return $result;