--- gforth/prims2x.fs	1994/07/13 19:21:07	1.4
+++ gforth/prims2x.fs	1994/08/25 15:25:33	1.6
@@ -21,8 +21,8 @@
 
 warnings off
 
+[IFUNDEF] vocabulary  include search-order.fs [THEN]
 include gray.fs
-include search-order.fs
 
 100 constant max-effect \ number of things on one side of a stack effect
 4096 constant batch-size \ no meaning, just make sure it's >0
@@ -89,7 +89,7 @@ variable effect-out-end ( pointer )
 2variable effect-in-size
 2variable effect-out-size
 
-variable primitive-number -8 primitive-number !
+variable primitive-number -9 primitive-number !
 
 \ for several reasons stack items of a word are stored in a wordlist
 \ since neither forget nor marker are implemented yet, we make a new
@@ -543,4 +543,5 @@ set-current
  endif
  warnings @ if
  ." ------------ CUT HERE -------------" cr  endif
- r> [ ] primfilter [ 0 ] ;
+ r> primfilter ;
+