--- loncom/xml/run.pm	2008/11/24 18:55:01	1.60
+++ loncom/xml/run.pm	2012/12/18 18:27:43	1.61
@@ -1,6 +1,6 @@
 package Apache::run;
 #
-# $Id: run.pm,v 1.60 2008/11/24 18:55:01 jms Exp $
+# $Id: run.pm,v 1.61 2012/12/18 18:27:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -168,11 +168,11 @@ sub dump {
 		    $line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
 		}
 	    }	
-	    if ($safeeval->reval('defined(@'.$symname.')')) {
+	    if ($safeeval->reval('@'.$symname)) {
 		$line.='@'.$symname.'=('.
 		    $safeeval->reval('join(",",@'.$symname.')').")"."\n";
 	    }
-	    if ($safeeval->reval('defined(%'.$symname.')')) {
+	    if ($safeeval->reval('%'.$symname)) {
 		$line.='%'.$symname.'=(';
 		$line.=$safeeval->reval('join(",",map { $_."=>".$'.
 					$symname.'{$_} } sort keys %'.