--- gforth/wf.fs	2005/06/13 19:36:41	1.37
+++ gforth/wf.fs	2005/06/28 15:22:45	1.38
@@ -510,7 +510,7 @@ true Value toc-image
 		3  OF  s" down" class=  ENDOF
 	    ENDCASE
 	THEN
-	s" a" tagged
+	s" a" tag parse-string s" a" /tag
     THEN
     rdrop
     1 toc-index +! toc-index @ /toc-line mod 0=