--- gforth/kernel/int.fs	2001/02/04 22:37:12	1.72
+++ gforth/kernel/int.fs	2001/02/24 17:24:45	1.73
@@ -892,6 +892,7 @@ has? new-input 0= [IF]
     argc ! argv ! pathstring 2!
 [ [THEN] ]
     sp@ sp0 !
+    primtable prepare-peephole-table TO peeptable
 [ has? new-input [IF] ]
     current-input off
 [ [THEN] ]