--- loncom/xml/lonxml.pm	2000/10/11 13:07:49	1.25
+++ loncom/xml/lonxml.pm	2000/10/11 21:07:59	1.26
@@ -50,6 +50,7 @@ sub xmlparse {
 #need to inspect this class of ops
 # $safeeval->deny(":base_orig");
  $safeinit .= ';$external::target='.$target.';';
+ $safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';';
  &Apache::run::run($safeinit,$safeeval);
 #-------------------- Redefinition of the target in the case of compound target
 
@@ -201,17 +202,11 @@ sub callsub {
       my $sub1;
     no strict 'refs';
     if (my $space=$Apache::lonxml::alltags{$token->[1]}) {
-#      &Apache::lonxml::debug("Calling sub $sub in $space<br>\n");
-#      if ( $sub eq "start_parserlib" ) {
-#	  print "me:".%$style.":\n";
-#      }
+      #&Apache::lonxml::debug("Calling sub $sub in $space<br>\n");
       $sub1="$space\:\:$sub";
       $Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);
       $currentstring = &$sub1($target,$token,$parstack,$parser,
 			     $safeeval,$style);
-#      if ( $sub eq "start_parserlib" ) {
-#	  print "me2:".%$style.":";
-#      }
     } else {
       #&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n");
       if (defined($token->[4])) {