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.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	1 Feb 2018 10:24:23 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	6 Apr 2018 16:07:43 -0000	1.11
@@ -295,6 +295,10 @@
   }
 
   :public object method get_doc_block {text {restVar ""}} {
+    #
+    # Get the (first) documentatiion block of the provided text (which
+    # might be e.g. the body of a method)
+    #
     set lines [split $text \n]
     set docBlock ""
     set i 0