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.16 -r1.72.2.17
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	30 Aug 2014 16:38:49 -0000	1.72.2.16
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	9 Sep 2014 16:38:50 -0000	1.72.2.17
@@ -297,13 +297,13 @@
 }
 
 # quick debugging tool
-proc ::! args {
-  ns_log notice "-- PROC [info level -1]"
-  ns_log notice "-- CALL $args"
-  set r [uplevel $args]
-  ns_log notice "-- EXIT $r"
-  return $r
-}
+# proc ::! args {
+#   ns_log notice "-- PROC [info level -1]"
+#   ns_log notice "-- CALL $args"
+#   set r [uplevel $args]
+#   ns_log notice "-- EXIT $r"
+#   return $r
+# }
 
 ::xotcl::Object instproc qn query_name {
   #set qn "dbqd.[my uplevel [list self class]]-[my uplevel [list self proc]].$query_name"