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.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	10 Dec 2017 15:15:45 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	21 Dec 2017 20:46:06 -0000	1.8
@@ -42,10 +42,9 @@
     return ""
 }
 
-if {$::tcl_version eq "8.6"} {
-
+if {$::tcl_version >= 8.6} {
     #
-    # Tcl 8.6 variant of ad_try
+    # Tcl 8.6 (or newer) variant of ad_try
     #
     
     ad_proc ad_try {
@@ -83,7 +82,7 @@
             #
             lappend extraTraps \
                 trap {AD EXCEPTION ad_script_abort} {result} [subst {
-                    puts stderr "ad_script_abort of <$body> return value <\$result>"
+                    ns_log notice {ad_script_abort of <$body> return value <\$result>}
                     ::throw {AD EXCEPTION ad_script_abort} \$result
                 }]
         }
@@ -133,7 +132,7 @@
             #
             lappend extraTraps \
                 trap {AD EXCEPTION ad_script_abort} {result} [subst {
-                    puts stderr "ad_script_abort of <$body> return value <\$result>"
+                    ns_log notice {ad_script_abort of <$body> return value <\$result>}
                     ::throw {AD EXCEPTION ad_script_abort} \$result
                 }]
         }