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 -r1.189.2.11 -r1.189.2.12
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	24 Apr 2019 00:15:43 -0000	1.189.2.11
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	25 Apr 2019 16:39:10 -0000	1.189.2.12
@@ -4068,14 +4068,19 @@
     ns_log $level "${message}\n[uplevel ad_get_tcl_call_stack]${request}\n"
 }
 
-ad_proc -public util::var_subst_quotehtml {string} {
+ad_proc -public util::var_subst_quotehtml {
+   {-ulevel 1}
+   string
+} {
 
     Substitute in the provided string all variables with their values
     (like "subst -nobackslashes -nocommands ..."), and perform HTML
     quoting on the variable values before substitution.  This command
     supports Tcl array syntax, and Tcl scalar variables with and
     without curly braces.
 
+    @param ulevel Where we should uplevel to when doing the subst's. Defaults to '1', meaning the caller's scope.
+    
     @author Gustaf Neumann
 } {
     #
@@ -4093,7 +4098,7 @@
     #
     # Finallly, "subst" the result.
     #
-    uplevel [list ::subst $result]
+    uplevel $ulevel [list ::subst $result]
 }