--- loncom/xml/lonxml.pm	2000/11/06 17:03:29	1.34
+++ loncom/xml/lonxml.pm	2000/11/06 18:42:38	1.35
@@ -296,7 +296,7 @@ sub parstring {
   my ($token) = @_;
   my $temp='';
   map {
-    if ($_=~/\w+/) {
+    unless ($_=~/\W/) {
       $temp .= "my \$$_=\"$token->[2]->{$_}\";"
     }
   } @{$token->[3]};