--- gforth/ds2texi.fs	1998/12/08 22:02:39	1.20
+++ gforth/ds2texi.fs	1998/12/13 23:29:58	1.21
@@ -63,7 +63,7 @@ create description-buffer 4096 chars all
 : skip-prefix ( c-addr1 u1 -- c-addr2 u2 )
     2dup 2 min s" --" compare 0=
     IF
-	[char] - skip [char] - scan [char] - skip
+	[char] - skip [char] - scan 1 /string
     THEN ;
 
 : replace-_ ( c-addr u -- )