--- loncom/homework/structuretags.pm	2002/09/23 21:08:03	1.117
+++ loncom/homework/structuretags.pm	2002/09/26 20:45:00	1.118
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.117 2002/09/23 21:08:03 sakharuk Exp $
+# $Id: structuretags.pm,v 1.118 2002/09/26 20:45:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -603,7 +603,7 @@ sub shuffle {
     if (defined(@$a)) {
       &Apache::response::setrandomnumber();
       for($i=@$a;--$i;) {
-	my $j=int rand($i+1);
+	my $j=int(&Math::Random::random_uniform() * ($i+1));
 	next if $i == $j;
 	@$a[$i,$j] = @$a[$j,$i];
       }