--- loncom/xml/lonxml.pm	2001/02/13 00:13:47	1.50
+++ loncom/xml/lonxml.pm	2001/02/13 00:15:49	1.51
@@ -333,7 +333,8 @@ sub parstring {
   map {
     unless ($_=~/\W/) {
       my $val=$token->[2]->{$_};
-      if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
+      $val =~ s/([\%\@\\])/\$1/;
+      #if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
       $temp .= "my \$$_=\"$val\";"
     }
   } @{$token->[3]};