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.13 -r1.22.2.14
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	12 Apr 2022 09:36:39 -0000	1.22.2.13
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	5 Sep 2022 15:07:20 -0000	1.22.2.14
@@ -301,7 +301,7 @@
     set docBlock ""
     set i 0
     set nrLines [llength $lines]
-    while {[string trim [lindex $lines $i]] eq "" && $i < $nrLines} {incr i}
+    while {[string is space [lindex $lines $i]] && $i < $nrLines} {incr i}
     while {$i < $nrLines} {
       set line [string trim [lindex $lines $i]]
       incr i