--- loncom/xml/Safe.pm	2003/08/30 03:25:34	1.7
+++ loncom/xml/Safe.pm	2009/02/13 17:20:38	1.9
@@ -1,3 +1,5 @@
+# $Id: Safe.pm,v 1.9 2009/02/13 17:20:38 bisitz Exp $
+
 package Safe;
 
 use 5.003_11;
@@ -208,7 +210,7 @@ sub varglob {
 
 
 sub reval {
-    $Safe::evalsub;
+    undef($Safe::evalsub);
     {
 	my ($obj, $expr, $strict) = @_;
 	my $root = $obj->{Root};