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.34 -r1.35
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	3 Nov 2024 09:50:39 -0000	1.34
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	5 Nov 2024 15:38:30 -0000	1.35
@@ -17,7 +17,7 @@
   # classes for the API browser.
   #
 
-  array set :methodLabel {
+  set :methodLabel {
     1-instproc "method"
     1-proc "object method"
     1-forward "object forward"
@@ -51,9 +51,9 @@
         set isNx [:scope_eval $scope \
                       ::nsf::directdispatch $obj ::nsf::methods::object::info::hastype ::nx::Class]
         if {$kind} {
-          set result [set :methodLabel($isNx-$methodType)]
+          set result [dict get ${:methodLabel} $isNx-$methodType]
         } else {
-          set result "$obj [set :methodLabel($isNx-$methodType)] $method"
+          set result "$obj [dict get ${:methodLabel} $isNx-$methodType] $method"
         }
         return $result
       }
@@ -416,7 +416,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]]
     }
@@ -659,7 +659,11 @@
       #
       # Check general per-object documentation.
       #
-      if {[string match ::nx::* $o]} continue
+      if {[string match ::nx::* $o]
+          || [string match *::slot::* $o]
+          || [::nsf::object::property $o slotcontainer]} {
+        continue
+      }
       ::xo::api update_object_doc "" $o ""
     }
   }