Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.41.2.51 -r1.41.2.52
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	22 Aug 2022 17:06:40 -0000	1.41.2.51
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	7 Nov 2022 13:34:34 -0000	1.41.2.52
@@ -991,7 +991,10 @@
         # The variable specification "$_var" is a pair of name and
         # value.
         #
-        lappend __vars [lindex $_var 0] [uplevel subst [lindex $_var 1]]
+        if {util::potentially_unsafe_eval_p -- [uplevel [lindex $_var 1]]} {
+          ad_log warning "depecated usage of variable/value pair $_var, potentially unsafe for 'subst'"
+        }
+        lappend __vars [lindex $_var 0] [uplevel subst -nocommands [lindex $_var 1]]
       } else {
         #
         # We have just a variable name, provide a linked variable to