--- gforth/arch/misc/key.fs	1997/05/29 19:43:09	1.1
+++ gforth/arch/misc/key.fs	1998/12/11 22:54:29	1.2
@@ -1,7 +1,7 @@
 \ misc-key.fs basic-io for misc processor		01feb97jaw
 
 
-c: key? $ffff x@ 0<> ;
+c: (key?) $ffff x@ 0<> ;
 
 c: (key)  BEGIN key? UNTIL $fffe x@ ;