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.65 -r1.66
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	10 Jul 2007 19:00:06 -0000	1.65
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Jul 2007 18:13:48 -0000	1.66
@@ -244,7 +244,11 @@
     my set delivery ns_return
     set page [my resolve_page [my set object] method]
     if {$page ne ""} {
-      return [my call $page $method]
+      if {[$page procsearch $method] eq ""} {
+	return [my error_msg "Method <b>'$method'</b> is not defined for this object"]
+      } else {
+	return [my call $page $method]
+      }
     } else {
       # the requested page was not found, provide an error message and 
       # an optional link for creating the page