Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.189.2.13 -r1.189.2.14
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	25 Apr 2019 19:21:04 -0000	1.189.2.13
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	25 Apr 2019 19:24:24 -0000	1.189.2.14
@@ -4069,7 +4069,7 @@
 }
 
 ad_proc -public util::var_subst_quotehtml {
-   {-level 1}
+   {-ulevel 1}
    string
 } {
 
@@ -4099,7 +4099,7 @@
     #
     # Finallly, "subst" the result.
     #
-    return [uplevel $level [list ::subst $result]]
+    return [uplevel $ulevel [list ::subst $result]]
 }