--- loncom/xml/scripttag.pm	2003/06/08 21:03:19	1.95
+++ loncom/xml/scripttag.pm	2003/06/09 21:37:54	1.97
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.95 2003/06/08 21:03:19 albertel Exp $
+# $Id: scripttag.pm,v 1.97 2003/06/09 21:37:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -283,7 +283,8 @@ sub end_window {
   if ($target eq 'web') {
     my $output=&Apache::lonxml::endredirection;
     $output =~ s/[\n\r]/ /g;
-    $output=&HTML::Entities::encode($output,'<>&"\'');
+    $output = &HTML::Entities::encode($output,'<>&"\'');
+    $output =~ s/&/\\&/g;
     my $linktext= &Apache::lonxml::get_param('linktext',$parstack,$safeeval);
     if (!$linktext) { $linktext='<sup>*</sup>'; }
     my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval);