Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.53 -r1.54
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	10 Oct 2008 23:49:42 -0000	1.53
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	4 Nov 2008 20:45:38 -0000	1.54
@@ -45,7 +45,7 @@
   Link instproc folder_id args {
     # This method is deprecated
     # just for backward compatibility
-    my log "--deprecated [self proc] [self args]"
+    my log "--deprecated [self proc] [self args], called from [self callingobject] [self callingproc]"
     eval my parent_id $args
   }
   Link instproc atts {} {