Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.69 -r1.70
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	14 Jul 2007 18:04:07 -0000	1.69
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	17 Jul 2007 10:05:53 -0000	1.70
@@ -247,7 +247,7 @@
       if {[$page procsearch $method] eq ""} {
 	return [my error_msg "Method <b>'$method'</b> is not defined for this object"]
       } else {
-        #my log "--invoke $page $method" 
+        #my msg "--invoke [my set object] id=$page method=$method" 
 	return [my call $page $method]
       }
     } else {
@@ -299,7 +299,7 @@
       set exported [$policy defined_methods Package]
       foreach m $exported {
 	#my log "--QP my exists_query_parameter $m = [my exists_query_parameter $m]"
-        if {[::xo::cc exists_query_parameter $m]} {
+        if {[my exists_query_parameter $m]} {
           set method $m  ;# determining the method, similar file extensions
           return [self]
         }