--- loncom/xml/run.pm	2001/10/05 22:27:41	1.19
+++ loncom/xml/run.pm	2001/11/07 22:29:17	1.20
@@ -71,7 +71,7 @@ sub dump {
   my $dump='';
   foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
     if (($symname!~/^\_/) && ($symname!~/\:$/)) {
-      if ($safeeval->reval('defined $'.$symname)) {
+      if ($safeeval->reval('defined($'.$symname.')')) {
 	$dump.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
       }	
       if ($safeeval->reval('defined @'.$symname)) {