Index: openacs-4/packages/xotcl-core/tcl/doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/doc-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	11 Sep 2024 06:15:56 -0000	1.8
+++ openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	29 Oct 2024 16:40:12 -0000	1.9
@@ -25,7 +25,7 @@
         if {$kind eq "instproc"} {append infokind s}
         ::xo::api scope_from_object_reference scope e
         if {$kind eq "proc"} {set prefix "→ "} {set prefix ""}
-        foreach methodName [xo::getObjectProperty $e $kind] {
+        foreach methodName [apidoc::get_object_property $e $kind] {
             if {$documented_methods} {
                 set proc_index [::xo::api proc_index $scope $e $kind $methodName]
                 #:msg "check $methodName => [nsv_exists api_proc_doc $proc_index]"
@@ -114,7 +114,7 @@
         foreach e $classes {
             if {![::nsf::is object $e]} continue
             set reduced_sc [list]
-            foreach sc [::xo::getObjectProperty $e superclass] {
+            foreach sc [::apidoc::get_object_property $e superclass] {
                 if {$omit_base_classes && [::nsf::is baseclass $sc]} continue
                 lappend reduced_sc $sc
             }
@@ -146,7 +146,7 @@
                     append children "[dotquote $c]->[dotquote $e];\n"
                 }
             }
-            set m [xo::getObjectProperty $e mixin]
+            set m [apidoc::get_object_property $e mixin]
             #puts "-- $e mixin $m"
             if {$m eq ""} continue
             foreach mixin $m {
@@ -157,7 +157,7 @@
         set tclasses ""
         set instmixins ""
         foreach e $classes {
-            set m [xo::getObjectProperty $e instmixin]
+            set m [apidoc::get_object_property $e instmixin]
             #puts "-- $e instmixin $m"
             if {$m eq ""} continue
             #foreach mixin $m {