--- loncom/xml/scripttag.pm	2000/08/02 16:47:53	1.4
+++ loncom/xml/scripttag.pm	2000/08/03 19:34:11	1.5
@@ -15,7 +15,7 @@ sub start_script {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   
   my $result="";
-  my $bodytext=$parser->get_text("/script");
+  my $bodytext=$$parser[$#$parser]->get_text("/script");
   if ($target ne "edit" ) {
     $result = &Apache::run::run($bodytext,$safeeval);
   } else {
@@ -28,7 +28,7 @@ sub end_script {}
 
 sub start_scriptlib {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
-  my $bodytext=$parser->get_text("/scriptlib");
+  my $bodytext=$$parser[$#$parser]->get_text("/scriptlib");
   my $result ="";
   if ($target ne "edit" ) {
     &Apache::run::run(&getfile($bodytext),$safeeval);
@@ -43,7 +43,7 @@ sub end_scriptlib {}
 
 sub start_parserlib {
   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
-  my $bodytext="/home/httpd/html/".$parser->get_text("/parserlib");
+  my $bodytext="/home/httpd/html/".$$parser[$#$parser]->get_text("/parserlib");
   %$style = ( %$style , &Apache::style::styleparser($target, &getfile($bodytext)));
 }