--- gforth/ds2texi.fs	2002/09/14 08:20:18	1.25
+++ gforth/ds2texi.fs	2003/01/26 20:56:37	1.26
@@ -203,6 +203,7 @@ create docline doclinelength chars allot
 
 : compare-ci ( addr1 u1 addr2 u2 -- n )
     \ case insensitive string compare
+    \ !! works correctly only for comparing for equality
     2 pick swap -
     ?dup-0=-if
         capscomp