--- loncom/homework/structuretags.pm	2001/08/03 22:12:07	1.51
+++ loncom/homework/structuretags.pm	2001/08/06 18:33:58	1.52
@@ -305,6 +305,7 @@ sub start_randomlist {
 sub shuffle {
     my $a=shift;
     my $i;
+    &Apache::response::setrandomnumber();
     for($i=@$a;--$i;) {
       my $j=int rand($i+1);
       next if $i == $j;