--- loncom/xml/lonxml.pm	2004/10/05 20:18:29	1.341
+++ loncom/xml/lonxml.pm	2004/10/07 16:27:48	1.342
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.341 2004/10/05 20:18:29 albertel Exp $
+# $Id: lonxml.pm,v 1.342 2004/10/07 16:27:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1028,7 +1028,7 @@ sub parstring {
     unless ($_=~/\W/) {
       my $val=$token->[2]->{$_};
       $val =~ s/([\%\@\\\"\'])/\\$1/g;
-      $val =~ s/^(\$\d)/\\$1/;
+      $val =~ s/(\$[^{a-zA-Z_])/\\$1/g;
       #if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
       $temp .= "my \$$_=\"$val\";";
     }