--- loncom/xml/lonxml.pm	2001/08/20 16:12:46	1.120
+++ loncom/xml/lonxml.pm	2001/08/20 23:31:08	1.121
@@ -245,7 +245,7 @@ sub printtokenheader {
                '<br />DocID: '.$token.
                '<br />Time: '.localtime().'<hr />';
     } else {
-        return $token;                         
+        return $token;
     }
 }
 
@@ -435,7 +435,6 @@ sub htmlclean {
 
 sub inner_xmlparse {
   my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target)=@_;
-  &Apache::lonxml::debug('Reentrant parser starting, again?');
   my $finaloutput = '';
   my $result;
   my $token;
@@ -738,7 +737,14 @@ sub init_safespace {
 #need to inspect this class of ops
 # $safeeval->deny(":base_orig");
   $safeinit .= ';$external::target="'.$target.'";';
-  $safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';';
+  my $rndseed;
+  if (exists(&Apache::lonhomework::whichuser)) {
+    my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser();
+    $rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name);
+  } else {
+    $rndseed=&Apache::lonnet::rndseed();
+  }
+  $safeinit .= ';$external::randomseed='.$rndseed.';';
   &Apache::run::run($safeinit,$safeeval);
 }