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.6.2.3 -r1.6.2.4
--- openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	8 May 2019 14:23:40 -0000	1.6.2.3
+++ openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	26 Feb 2021 19:15:52 -0000	1.6.2.4
@@ -18,7 +18,7 @@
         return $result
     }
 
-    ad_proc dot_append_method {{-documented_methods 1} e methods_ref kind} {
+    ad_proc -private dot_append_method {{-documented_methods 1} e methods_ref kind} {
     } {
         upvar $methods_ref methods
         set infokind $kind
@@ -38,7 +38,7 @@
         }
     }
 
-    ad_proc dotclass {{-is_focus 0} {-documented_methods 1} e} {
+    ad_proc -private dotclass {{-is_focus 0} {-documented_methods 1} e} {
     } {
         set definition ""
         if {$is_focus} {
@@ -65,13 +65,13 @@
         append definition "\}\"\];\n"
     }
 
-    ad_proc dotobject {e} {
+    ad_proc -private dotobject {e} {
     } {
         set url [export_vars -base show-object {{object $e}}]
         set definition "[dotquote $e] \[URL=\"$url\"\];\n";
     }
 
-    ad_proc dotcode {
+    ad_proc -private dotcode {
         {-with_children 0}
         {-with_instance_relations 0}
         {-omit_base_classes 1}