Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -N -r1.29.6.4 -r1.29.6.5
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	4 Sep 2014 12:19:41 -0000	1.29.6.4
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	11 Sep 2014 07:54:36 -0000	1.29.6.5
@@ -91,6 +91,12 @@
   } {
     #my msg "--i [self args], URL=$url, init_url=$init_url"
 
+    if {[info exists ad_doc] && [api_page_documentation_mode_p]} {
+      ad_parse_documentation_string $ad_doc doc_elements
+      set doc_elements(query) $parameter
+      error [array get doc_elements] "ad_page_contract documentation"
+    }
+
     if {$url eq "" && $init_url} {
       set url [root_of_host [ad_host]][ns_conn url]
       #my log "--CONN ns_conn url -> $url"