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 -N -r1.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Apr 2007 13:11:03 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	10 Apr 2007 13:19:28 -0000	1.11
@@ -6,6 +6,7 @@
   ::xotcl::Object instproc msg
   ::xotcl::Object instproc __timediff
   ::xotcl::Object instproc debug
+  ::xotcl::Object instproc qn
   ::xotcl::Object instproc contains
   ::xotcl::Object instproc serialize
   ::xotcl::Object instforward db_1row
@@ -93,7 +94,10 @@
 ::xotcl::Object instproc msg msg {
   util_user_message -message "$msg, [self] [self callingclass]->[self callingproc] ([my __timediff])"
 }
-
+::xotcl::Object instproc qn query_name {
+  set qn "dbqd.[my uplevel self class]-[my uplevel self proc].$query_name"
+  return $qn
+}
 namespace eval ::xo {
   Class Timestamp
   Timestamp instproc init {} {my set time [clock clicks -milliseconds]}