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 -N -r1.7.2.20 -r1.7.2.21
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	14 Feb 2017 13:24:15 -0000	1.7.2.20
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	15 Apr 2017 10:12:03 -0000	1.7.2.21
@@ -464,7 +464,7 @@
         lassign $def f default
         set pair [split [lindex $f 0 0] :]
         lassign $pair flaggedName flags
-        if {[string range $flaggedName 0 0] eq "-"} {
+        if {[string index $flaggedName 0] eq "-"} {
           set isFlag 1
           set name [string range $flaggedName 1 end]
         } else {