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 -r1.11 -r1.11.2.1
--- openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	17 Jan 2019 17:02:00 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	4 Sep 2019 16:33:31 -0000	1.11.2.1
@@ -82,7 +82,7 @@
             #
             lappend extraTraps \
                 trap {AD EXCEPTION ad_script_abort} {result} [subst {
-                    ns_log notice {ad_script_abort of <$body> return value <\$result>}
+                    ns_log notice {ad_script_abort of <[list $body]> return value <\$result>}
                     ::throw {AD EXCEPTION ad_script_abort} \$result
                 }]
         }
@@ -132,7 +132,7 @@
             #
             lappend extraTraps \
                 trap {AD EXCEPTION ad_script_abort} {result} [subst {
-                    ns_log notice {ad_script_abort of <$body> return value <\$result>}
+                    ns_log notice {ad_script_abort of <[list $body]> return value <\$result>}
                     ::throw {AD EXCEPTION ad_script_abort} \$result
                 }]
         }