--- loncom/xml/Safe.pm	2003/08/30 03:25:34	1.7
+++ loncom/xml/Safe.pm	2003/09/01 01:13:59	1.8
@@ -208,7 +208,7 @@ sub varglob {
 
 
 sub reval {
-    $Safe::evalsub;
+    undef($Safe::evalsub);
     {
 	my ($obj, $expr, $strict) = @_;
 	my $root = $obj->{Root};