--- gforth/kernel/comp.fs	2006/02/26 20:16:10	1.81
+++ gforth/kernel/comp.fs	2006/02/26 23:32:53	1.82
@@ -638,7 +638,7 @@ has? ec 0= [IF]
 ' (reveal) f83search reveal-method !
 [ELSE]
 : (reveal) ( nt wid -- )
-    .s dup >r @ over .s ! r> ! ;
+    dup >r @ over ! r> ! ;
 [THEN]
 
 Variable warnings ( -- addr ) \ gforth