--- gforth/ds2texi.fs	1996/08/21 14:58:38	1.10
+++ gforth/ds2texi.fs	1997/02/01 14:59:28	1.12
@@ -123,6 +123,9 @@ create description-buffer 4096 chars all
     ."  @var{ " r@ doc-stack-effect 2@ type ."  }  "
     r@ doc-wordset 2@ type
     cr
+    ." @cindex "
+    ." @code{" r@ doc-name 2@ typetexi ." }"
+    cr
     ." @format" cr
     ." @code{" r@ doc-name 2@ typetexi ." }       "
     ." @i{" r@ doc-stack-effect 2@ type ." }       "
@@ -217,10 +220,3 @@ create docline doclinelength chars allot
     else
 	." undocumented: " wordname type cr
     endif ;
-
-script? [IF]
-require prims2x.fs
-s" primitives.b" ' register-doc process-file
-require crossdoc.fd
-require doc.fd
-[THEN]