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.10 -r1.30.2.11 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 30 Dec 2015 13:12:44 -0000 1.30.2.10 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 30 Dec 2015 13:14:59 -0000 1.30.2.11 @@ -400,7 +400,9 @@ } append out $first_line_tag$pretty_name$end_tag - if {[regexp {^(.*) (inst)?proc (.*)$} $proc_name match cl prefix method]} { + if {[regexp {^(.*) (inst)?proc (.*)$} $proc_name match cl prefix method] + && [info commands ::xo::api] ne "" + } { set xotclArgs 1 set scope "" if {[regexp {^(.+) (.+)$} $cl match scope cl]} {