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.57 -r1.58
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	4 Feb 2011 23:51:32 -0000	1.57
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Feb 2011 11:26:45 -0000	1.58
@@ -83,6 +83,9 @@
   ::nx::Object public method serialize {} {::Serializer deepSerialize [self]}
   ::nx::Object method set_instance_vars_defaults {} {:configure}
   ::nx::Object public method destroy_on_cleanup {} {set ::xo::cleanup([self]) [list [self] destroy]}
+  ::nx::Object method qn {query_name} {
+    return "dbqd.[:uplevel [list current class]]-[:uplevel [list current method]].$query_name"
+  }
   ::xotcl::Object instproc set_instance_vars_defaults {} {:configure}
   ::xotcl::Object proc setExitHandler {code} {::nsf::exithandler set $code}
 
@@ -91,6 +94,7 @@
     ::nx::Object method show-object
     ::nx::Object method set_instance_vars_defaults
     ::nx::Object method destroy_on_cleanup
+    ::nx::Object method qn
     ::nx::Slot method istype
     ::nx::Slot method exists
     ::nx::Slot method set