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 -N -r1.30.2.14 -r1.30.2.15 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 1 Jan 2016 12:08:31 -0000 1.30.2.14 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 1 Jan 2016 12:16:34 -0000 1.30.2.15 @@ -1307,7 +1307,6 @@ } elseif {$proc_namespace ne "" && [info commands ::${proc_namespace}::${proc_name}] ne ""} { - ns_log notice "proc_namespace <$proc_namespace> ::${proc_namespace}::${proc_name}" if {[is_object $scope ${proc_namespace}::${proc_name}]} { set url [::xo::api object_url \ @@ -1320,12 +1319,14 @@ append html "" \ [pretty_token proc $proc_name] } - } elseif {[info commands ::$proc_name] ne ""} { - ns_log notice "absolute ::${proc_name}" - if {[is_object $scope ::${proc_name}]} { + } elseif {[info commands ::$proc_name] ne ""} { + set absolute_name [expr {[string match "::*" $proc_name] + ? $proc_name + : "::${proc_name}"}] + if {[is_object $scope $absolute_name]} { set url [::xo::api object_url \ -show_source 1 -show_methods 2 \ - $scope ::${proc_name}] + $scope $absolute_name] append html "" \ [pretty_token object $proc_name] } else {