Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.30.2.3 -r1.30.2.4
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	5 Sep 2015 14:52:37 -0000	1.30.2.3
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	20 Sep 2015 15:40:15 -0000	1.30.2.4
@@ -105,7 +105,7 @@
         regsub -all {\#.*$} $line "" line
         set line [string trim $line]
         if { $line ne "" } {
-            set has_contract_p [regexp {(^ad_page_contract\s)|( initialize )} $line match]
+            set has_contract_p [regexp {(^ad_(page|include)_contract\s)|( initialize )|} $line]
             break
         }
     }
@@ -128,7 +128,7 @@
         if {[regexp {^ad_page_contract documentation} $::errorInfo] } {
             array set doc_elements $error
         }
-        if { [info exists doc_elements] } {
+        if { [array exists doc_elements] } {
             return [array get doc_elements]
         }
         return [list]