--- gforth/wf.fs	2008/08/24 12:28:11	1.56
+++ gforth/wf.fs	2008/10/06 19:31:36	1.57
@@ -380,6 +380,7 @@ Create do-words  $100 0 [DO] ' .text , [
 : >tag '\ parse type '\ parse tag ;
 
 char>tag * b
+char>tag / i
 char>tag _ em
 char>tag # code
 :noname  '~ parse .type '~ parse .type ; '~ cells do-words + !