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.52 -r1.41.2.53
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	7 Nov 2022 13:34:34 -0000	1.41.2.52
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	8 Nov 2022 12:47:43 -0000	1.41.2.53
@@ -991,7 +991,7 @@
         # The variable specification "$_var" is a pair of name and
         # value.
         #
-        if {util::potentially_unsafe_eval_p -- [uplevel [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]]