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