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.22.2.6 -r1.22.2.7
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	1 Feb 2021 10:41:29 -0000	1.22.2.6
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	14 Feb 2021 21:10:30 -0000	1.22.2.7
@@ -327,16 +327,17 @@
     return $docBlock
   }
 
-  :public object method update_object_doc {scope obj doc_string} {
-    ns_log notice "update_object_doc $scope $obj ..."
+  :public object method update_object_doc {scope obj doc_string} { 
     #
     # Update the API browser nsvs with information about the provided
     # object.
     #
-
     # If no doc string is provided, try to get it from the object
     # definition.
     #
+    
+    #ns_log notice "update_object_doc $scope $obj ..."    
+
     if {$doc_string eq ""} {
       set doc_string [:get_doc_block [:get_init_block $scope $obj]]
     }