--- rat/lonuserstate.pm	2003/03/25 22:50:14	1.57
+++ rat/lonuserstate.pm	2003/04/30 21:13:57	1.58
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construct and maintain state and binary representation of course for user
 #
-# $Id: lonuserstate.pm,v 1.57 2003/03/25 22:50:14 albertel Exp $
+# $Id: lonuserstate.pm,v 1.58 2003/04/30 21:13:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -443,7 +443,7 @@ sub pickrandom {
 	my (undef,$id)=split(/\./,$rid);
         if ($randompickseed{$rid}) { $id=$randompickseed{$rid}; }
 	my $rndseed=&Apache::lonnet::rndseed($id); # use id instead of symb
-	&Math::Random::random_set_seed_from_phrase($rndseed);
+	&Apache::lonnet::setup_random_from_rndseed($rndseed);
 	my @whichids=&Math::Random::random_permuted_index($#currentrids+1);
         for (my $i=1;$i<=$rndpick;$i++) { $currentrids[$whichids[$i]]=''; }
 	#&Apache::lonnet::logthis("$id,$rndseed,".join(':',@whichids));