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.8 -r1.30.2.9 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 30 Dec 2015 12:54:34 -0000 1.30.2.8 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 30 Dec 2015 13:09:45 -0000 1.30.2.9 @@ -752,15 +752,18 @@ @param proc_name the name spec of the proc @return body of the specified prox } { - if {[regexp {^(.*) (inst)?proc (.*)$} $proc_name match obj prefix method]} { + if {[info commands ::xo::api] ne "" + && [regexp {^(.*) (inst)?proc (.*)$} $proc_name match obj prefix method]} { if {[regexp {^(.*) (.*)$} $obj match thread obj]} { return [::xo::api get_method_source $thread $obj $prefix $method] } else { return [::xo::api get_method_source "" $obj $prefix $method] } - } elseif {[regexp {^([^ ]+)(Class|Object) (.*)$} $proc_name . thread kind obj]} { + } elseif {[info commands ::xo::api] ne "" + && [regexp {^([^ ]+)(Class|Object) (.*)$} $proc_name . thread kind obj]} { return [::xo::api get_object_source $thread $obj] - } elseif {[regexp {(Class|Object) (.*)$} $proc_name . kind obj]} { + } elseif {[info commands ::xo::api] ne "" + && [regexp {(Class|Object) (.*)$} $proc_name . kind obj]} { return [::xo::api get_object_source "" $obj] } elseif {[info procs $proc_name] ne ""} { return [info body $proc_name] Index: openacs-4/packages/acs-api-browser/www/procs-file-view.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.adp,v diff -u -r1.11.2.1 -r1.11.2.2 --- openacs-4/packages/acs-api-browser/www/procs-file-view.adp 30 Dec 2015 12:54:35 -0000 1.11.2.1 +++ openacs-4/packages/acs-api-browser/www/procs-file-view.adp 30 Dec 2015 13:09:45 -0000 1.11.2.2 @@ -4,7 +4,7 @@