--- loncom/xml/lonxml.pm	2000/08/16 18:32:58	1.19
+++ loncom/xml/lonxml.pm	2000/09/19 18:05:21	1.20
@@ -164,13 +164,13 @@ sub callsub {
   {
     no strict 'refs';
     if (my $space=$Apache::lonxml::alltags{$token->[1]}) {
-      #print "Calling sub $sub in $space \n";
+      #print "Calling sub $sub in $space<br>\n";
       $sub="$space\:\:$sub";
       $Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);
       $currentstring = &$sub($target,$token,$parstack,$parser,
 			     $safeeval,$style);
     } else {
-      #print "NOT Calling sub $sub\n";
+      #print "NOT Calling sub $sub<br>\n";
       if (defined($token->[4])) {
 	$currentstring = $token->[4];
       } else {
@@ -233,7 +233,11 @@ sub get_all_text {
 sub parstring {
   my ($token) = @_;
   my $temp='';
-  map {$temp .= "my \$$_=\"$token->[2]->{$_}\";"} @{$token->[3]};
+  map {
+    if ($_=~/\w+/) {
+      $temp .= "my \$$_=\"$token->[2]->{$_}\";"
+    }
+  } @{$token->[3]};
   return $temp;
 }
 1;