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.69 -r1.70 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 17 Nov 2018 16:30:40 -0000 1.69 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 17 Nov 2018 16:33:32 -0000 1.70 @@ -1181,7 +1181,7 @@ return [::xo::api get_method_source "" $obj $prefix $method] } } - return "" + return "" } elseif {[info commands ::xo::api] ne "" && [regexp {^([^ ]+) (Class|Object) (.*)$} $proc_name . thread kind obj]} { return [::xo::api get_object_source $thread $obj]