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.16 -r1.30.2.17 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 1 Jan 2016 18:29:24 -0000 1.30.2.16 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 1 Jan 2016 19:13:40 -0000 1.30.2.17 @@ -405,9 +405,7 @@ } { set xotclArgs 1 set scope "" - if {[regexp {^(.+) (.+)$} $cl match scope cl]} { - set cl "$scope do $cl" - } + regexp {^(.+) (.+)$} $cl match scope cl if {$prefix eq ""} { set pretty_proc_name "[::xo::api object_link $scope $cl] $method" } else {