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.72.2.7 -r1.72.2.8
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Oct 2013 10:19:58 -0000	1.72.2.7
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	2 Nov 2013 19:11:04 -0000	1.72.2.8
@@ -398,10 +398,14 @@
 
     # register only once
     if {"::xo::freeconn" ni $registered} {
-      ns_ictl trace freeconn ::xo::freeconn
+      if {[catch {ns_ictl trace freeconn ::xo::freeconn} errorMsg]} {
+	ns_log Warning "ns_ictl trace returned: $errorMsg"
+      }
     }
     if {"::xo::at_delete" ni [ns_ictl gettraces delete]} {
-      ns_ictl ondelete ::xo::at_delete
+      if {[catch {ns_ictl ondelete ::xo::at_delete} errorMsg]} {
+	ns_log Warning "ns_ictl ondelete returned: $errorMsg"
+      }
     }    
 
     proc ::xo::freeconn {} {