--- loncom/xml/run.pm	2001/02/19 20:43:00	1.15
+++ loncom/xml/run.pm	2001/05/04 21:17:24	1.16
@@ -34,6 +34,7 @@ ENDEVALUATE
 sub evaluate {
   my ($expression,$safeeval,$decls) = @_;
   unless (defined $expression) { return ''; }
+  if (!$Apache::lonxml::evaluate) { return $expression; }
   my $result = '';
   $@='';
   print $decls