Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.93.2.6 -r1.93.2.7
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	9 Aug 2019 19:45:14 -0000	1.93.2.6
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Sep 2019 15:58:06 -0000	1.93.2.7
@@ -524,7 +524,7 @@
     try {
       {*}$at_end
     } on error {errorMsg} {
-      ns_log notice "Error during ::xo::cleanup: $errorMsg $::errorInfo"
+      ns_log Error "Error during ::xo::cleanup: $errorMsg $::errorInfo"
     }
     array unset ::xo::cleanup
     #ns_log notice "*** end of cleanup"