Index: openacs-4/packages/xotcl-core/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/index.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/xotcl-core/www/index.tcl	11 Sep 2024 06:15:56 -0000	1.12
+++ openacs-4/packages/xotcl-core/www/index.tcl	29 Oct 2024 16:40:12 -0000	1.13
@@ -42,7 +42,7 @@
 proc info_classes {cl key {dosort 0}} {
   upvar all_classes all_classes
   set infos ""
-  set classes [::xo::getObjectProperty $cl $key]
+  set classes [::apidoc::get_object_property $cl $key]
   if {$dosort} {
     set classes [lsort $classes]
   }
@@ -76,7 +76,7 @@
 
   foreach key {proc instproc} {
     set infos ""
-    foreach i [lsort [::xo::getObjectProperty $cl $key]] {append infos [::xo::api method_link $cl $key $i] ", "}
+    foreach i [lsort [::apidoc::get_object_property $cl $key]] {append infos [::xo::api method_link $cl $key $i] ", "}
     set infos [string trimright $infos ", "]
     if {$infos ne ""} {
       append output "<li><em>$key:</em> $infos</li>\n"