--- loncom/homework/default_homework.lcpm	2000/10/05 19:24:23	1.2
+++ loncom/homework/default_homework.lcpm	2000/10/11 20:59:43	1.3
@@ -2,12 +2,15 @@
 # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
 # 
 #
+$RANDOMINIT=0;
+
 sub hinton {
   return 0;
 }
 
 sub random {
   my ($start,$end,$step)=@_;
+  if ( ! $RANDOMINIT ) { srand($external::randomseed); $RANDOMINIT=1; }
   my $num=1+int(($end-$start)/$step);
   my $result=$start + int(rand() * $num)*$step;
   return $result;