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.41 -r1.42
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	28 Apr 2009 14:33:27 -0000	1.41
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	18 Sep 2009 12:00:38 -0000	1.42
@@ -168,8 +168,6 @@
 ::xotcl::Object instproc ds msg {
   ds_comment "[self]: $msg, ([self callingclass]->[self callingproc] [my __timediff])"
 }
-
-
 ::xotcl::Object instproc debug msg {
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
@@ -183,6 +181,16 @@
     }
   }
 }
+
+# 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
+}
+
 ::xotcl::Object instproc qn query_name {
   set qn "dbqd.[my uplevel self class]-[my uplevel self proc].$query_name"
   return $qn