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.156 -r1.189.2.157
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	8 Nov 2022 13:59:52 -0000	1.189.2.156
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	8 Nov 2022 18:04:00 -0000	1.189.2.157
@@ -733,10 +733,10 @@
 
                     if { [llength $var_spec] > 1 } {
                         if { $precedence_type ne "noprocessing_vars" } {
-                            if {[util::potentially_unsafe_eval_p -- [lindex $var_spec 1]]} {
-                                ad_log warning "potentially_unsafe_eval in variable/value pair $var_spec"
-                            }
-                            set value [uplevel subst \{[lindex $var_spec 1]\}]
+                            #if {[util::potentially_unsafe_eval_p -- [lindex $var_spec 1]]} {
+                            #    ad_log warning "potentially_unsafe_eval in variable/value pair $var_spec"
+                            #}
+                            set value [uplevel [list subst [lindex $var_spec 1]]]
                         } else {
                             set value [lindex $var_spec 1]
                         }