--- loncom/xml/run.pm	2000/10/02 22:20:18	1.7
+++ loncom/xml/run.pm	2000/10/11 13:33:33	1.8
@@ -8,7 +8,7 @@ sub evaluate {
   unless (defined $expression) { return ''; }
   my $result = '';
   $@='';
-  $safeeval->reval('$_=\''.$expression.'\';');
+  $safeeval->reval('$_=q{'.$expression.'};');
   if ($@ eq '') {
     $safeeval->reval('{'.$decls.'$_=~s/(\$\{?[A-Za-z]\w*\}?)/(defined(eval($1))?eval($1):$1)/ge;}');
     if ($@ eq '') {