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.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]
                         }
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.54 -r1.41.2.55
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	8 Nov 2022 13:24:15 -0000	1.41.2.54
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	8 Nov 2022 18:04:00 -0000	1.41.2.55
@@ -954,7 +954,9 @@
       } else {
         set default_status_code 204
       }
-      set status_code [expr {[::xo::cc exists status_code] ? [::xo::cc set status_code] : $default_status_code}]
+      set status_code [expr {[::xo::cc exists status_code]
+                             ? [::xo::cc set status_code]
+                             : $default_status_code}]
       #:log "REPLY ${:delivery} $status_code ${:mime_type} - length: [string length $text] - [ad_conn peeraddr]"
       ${:delivery} $status_code ${:mime_type} $text
     }
@@ -969,10 +971,10 @@
         # The variable specification "$_var" is a pair of name and
         # value.
         #
-        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]]
+        #if {[util::potentially_unsafe_eval_p -- [lindex $_var 1]]} {
+        #  ad_log warning "depecated usage of variable/value pair $_var, potentially unsafe for 'subst'"
+        #}
+        lappend __vars [lindex $_var 0] [uplevel [list subst [lindex $_var 1]]]
       } else {
         #
         # We have just a variable name, provide a linked variable to