--- gforth/kernel/kernel.fs	2006/01/29 18:34:34	1.17
+++ gforth/kernel/kernel.fs	2006/02/12 23:45:55	1.18
@@ -26,9 +26,11 @@ has? interpreter [IF]
         include ./comp.fs
     [THEN]
 [THEN]
-include ./accept.fs
 has? new-input [IF]
+    include ./accept.fs
     include ./input.fs
+[ELSE]
+    include ./saccept.fs
 [THEN]
 has? ec 0= [IF]
 include ./license.fs