--- gforth/ds2texi.fs	1998/12/13 23:29:58	1.21
+++ gforth/ds2texi.fs	1999/10/15 23:18:19	1.22
@@ -133,6 +133,13 @@ create description-buffer 4096 chars all
     ." @cindex "
     ." @code{" r@ doc-name 2@ typetexi ." }"
     cr
+    r@ doc-name 2@ drop c@ [char] : <> if
+	\ cut out words starting with :, info-lookup cannot handle them
+	\ !! deal with : by replacing it here and in info-lookup?
+	." @kindex "
+	r@ doc-name 2@ typetexi
+	cr
+    endif
     ." @format" cr
     ." @code{" r@ doc-name 2@ typetexi ." }       "
     ." @i{" r@ doc-stack-effect 2@ type ." }       "