Index: openacs-4/packages/acs-tcl/tcl/exception-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/exception-procs.tcl,v
diff -u -N -r1.11.2.1 -r1.11.2.2
--- openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	4 Sep 2019 16:33:31 -0000	1.11.2.1
+++ openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	25 Nov 2019 14:16:26 -0000	1.11.2.2
@@ -81,10 +81,9 @@
             # the debug message.
             #
             lappend extraTraps \
-                trap {AD EXCEPTION ad_script_abort} {result} [subst {
-                    ns_log notice {ad_script_abort of <[list $body]> return value <\$result>}
-                    ::throw {AD EXCEPTION ad_script_abort} \$result
-                }]
+                trap {AD EXCEPTION ad_script_abort} {result} {
+                    ::throw {AD EXCEPTION ad_script_abort} $result
+                }
         }
         #
         # Call the Tcl 8.6 built-in/compliant ::try in the scope of the caller
@@ -131,10 +130,9 @@
             # the debug message.
             #
             lappend extraTraps \
-                trap {AD EXCEPTION ad_script_abort} {result} [subst {
-                    ns_log notice {ad_script_abort of <[list $body]> return value <\$result>}
-                    ::throw {AD EXCEPTION ad_script_abort} \$result
-                }]
+                trap {AD EXCEPTION ad_script_abort} {result} {
+                    ::throw {AD EXCEPTION ad_script_abort} $result
+                }
         }
         #
         # Call the Tcl 8.6 built-in/compliant ::try in the scope of the caller