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.1 -r1.2
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	11 Oct 2005 08:41:18 -0000	1.1
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Dec 2005 15:55:29 -0000	1.2
@@ -2,11 +2,17 @@
 ::Serializer exportMethods {
   ::xotcl::Object instproc log 
   ::xotcl::Object instproc debug
+  ::xotcl::Object instproc contains
 }
 
+::xotcl::Object instproc contains cmds {
+  my requireNamespace
+  namespace eval [self] $cmds
+}
+
 ::xotcl::Object instproc log msg {
-  ns_log notice "[self] $msg"
+  ns_log notice "[self] [self callingclass]->[self callingproc]: $msg"
 }
 ::xotcl::Object instproc debug msg {
-  ns_log debug "[self] $msg"
+  ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
\ No newline at end of file