--- gforth/prims2x.fs	1996/02/13 11:12:19	1.20
+++ gforth/prims2x.fs	1996/05/09 18:13:02	1.21
@@ -203,7 +203,7 @@ print-token !
 
 : ` ( -- terminal ) ( use: ` c )
  ( creates anonymous terminal for the character c )
- [compile] ascii singleton ['] ?nextchar make-terminal ;
+ char singleton ['] ?nextchar make-terminal ;
 
 char a char z ..  char A char Z ..  union char _ singleton union  charclass letter
 char 0 char 9 ..					charclass digit