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 -N -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