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.35 -r1.36
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	5 Nov 2024 15:38:30 -0000	1.35
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	13 Nov 2024 17:36:08 -0000	1.36
@@ -184,6 +184,16 @@
       return "<a href='/api-doc/proc-view?proc=[ns_urlencode $proc_index]'>$label</a>"
     } 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]
+        if {[lindex $definition end-2] eq "alias"} {
+          return "<a href='/api-doc/proc-view?proc=[ns_urlencode [lindex $definition end]]'>$label</a>"
+        }
+        #
+        # Must be something implemented in C
+        #
         return $method<SUP>C</SUP>
       } else {
         return $method
@@ -416,7 +426,7 @@
     #if {![string match ::* $obj]} {
     #  ad_log error "==== update_object_doc OBJECT WITHOUT leading colons <$obj>"
     #}
-    
+
     if {$doc_string eq ""} {
       set doc_string [:get_doc_block [:get_init_block $scope $obj]]
     }