--- loncom/xml/lonxml.pm	2003/02/12 22:04:34	1.230
+++ loncom/xml/lonxml.pm	2003/02/12 22:45:01	1.231
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.230 2003/02/12 22:04:34 albertel Exp $
+# $Id: lonxml.pm,v 1.231 2003/02/12 22:45:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1216,7 +1216,7 @@ sub parstring {
   foreach (@{$token->[3]}) {
     unless ($_=~/\W/) {
       my $val=$token->[2]->{$_};
-      $val =~ s/([\%\@\\\"])/\\$1/g;
+      $val =~ s/([\%\@\\\"\'])/\\$1/g;
       #if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
       $temp .= "my \$$_=\"$val\";"
     }