Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	13 Nov 2024 17:36:08 -0000	1.36
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	12 Dec 2024 10:40:34 -0000	1.37
@@ -182,12 +182,12 @@
     }
     if {[nsv_exists api_proc_doc $proc_index]} {
       return "<a href='/api-doc/proc-view?proc=[ns_urlencode $proc_index]'>$label</a>"
-    } else {
+    } else {    
       if {[::apidoc::get_object_property $obj $kind $method] eq ""} {
         #
         # Try to handle aliases via the alias definition
         #
-        set definition [ns_cache info {*}[expr {$kind eq "proc" ? "object" : ""}] method definition $method]
+        set definition [$obj info {*}[expr {$kind eq "proc" ? "object" : ""}] method definition $method]
         if {[lindex $definition end-2] eq "alias"} {
           return "<a href='/api-doc/proc-view?proc=[ns_urlencode [lindex $definition end]]'>$label</a>"
         }