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.34 -r1.35
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	10 Jan 2018 10:11:00 -0000	1.34
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	10 Jan 2018 10:48:07 -0000	1.35
@@ -127,10 +127,17 @@
         #
         source "$::acs::rootdir/$path"
     } on error {errorMsg} {
+        #
+        # This is a strange construct: in case, the ::$errorInfo
+        # starts with ad_page_contract, we get the documentation
+        # elements from the $errorMsg
+        #
         if {[regexp {^ad_page_contract documentation} $::errorInfo] } {
             array set doc_elements $errorMsg
+        } else {
+            ad_log warning "api_read_script_documentation: got unexpected result while sourcing $::acs::rootdir/$path\n$errorMsg"
+            return -code error $errorMsg
         }
-        return -code error [array get doc_elements]
     } finally {
         doc_set_page_documentation_mode 0
     }