--- gforth/prims2x.fs 1998/12/11 22:54:27 1.36 +++ gforth/prims2x.fs 1998/12/23 21:41:57 1.37 @@ -661,7 +661,6 @@ set-current : output-label ( -- ) 1 flush-comment ! ?flush-comment - ." [" -2 primitive-number @ - 0 .r ." ] " ." (Label)&&I_" c-name 2@ type ." ," cr -1 primitive-number +! ;