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 -r1.73
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	12 Aug 2013 20:01:05 -0000	1.72
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Aug 2013 15:40:10 -0000	1.73
@@ -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} errMsg]} {
+        ns_log Warning "Skip Error: $errMsg"
+      }
     }
     if {"::xo::at_delete" ni [ns_ictl gettraces delete]} {
-      ns_ictl ondelete ::xo::at_delete
+      if {[catch {ns_ictl ondelete ::xo::at_delete} errMsg]} {
+        ns_log Warning "Skip Error: $errMsg"
+      }
     }    
 
     proc ::xo::freeconn {} {