--- loncom/interface/lonprintout.pm	2003/09/06 17:21:16	1.230
+++ loncom/interface/lonprintout.pm	2003/09/06 17:22:27	1.231
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.230 2003/09/06 17:21:16 albertel Exp $
+# $Id: lonprintout.pm,v 1.231 2003/09/06 17:22:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -703,6 +703,9 @@ ENDPART
             #printing content of sequence from the construction space	
 	    my $flag_latex_header_remove = 'NO'; 
 	    my $rndseed=time;
+	    if ($helper->{'VARS'}->{'curseed'}) {
+		$rndseed=$helper->{'VARS'}->{'curseed'};
+	    }
 	    $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
 	    my $errtext=&Apache::lonratedt::mapread($currentURL);
 	    for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) {