--- gforth/Attic/kernel.fs	1996/10/02 09:48:58	1.6
+++ gforth/Attic/kernel.fs	1996/11/22 17:41:36	1.8
@@ -1359,9 +1359,9 @@ Defer key ( -- c ) \ core
   1 loadline +!
   swap #tib ! 0 >in ! ;
 
-: Query  ( -- ) \ core-ext
+: query   ( -- ) \ core-ext
     \G obsolescent
-    loadfile off  blk off  refill drop ;
+    tib /line accept #tib ! 0 >in ! ;
 
 \ File specifiers                                       11jun93jaw
 
@@ -1615,7 +1615,9 @@ create image-included-files  1 , A, ( po
 Defer 'quit
 Defer .status
 : prompt        state @ IF ."  compiled" EXIT THEN ."  ok" ;
-: (quit)        BEGIN .status cr query interpret prompt AGAIN ;
+: (Query)  ( -- )
+    loadfile off  blk off  refill drop ;
+: (quit)        BEGIN .status cr (query) interpret prompt AGAIN ;
 ' (quit) IS 'quit
 
 \ DOERROR (DOERROR)                                     13jun93jaw
@@ -1811,7 +1813,7 @@ Defer 'cold ' noop IS 'cold
  ." Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA." cr ;
 
 : boot ( path **argv argc -- )
-  argc ! argv ! save-mem pathstring 2!  main-task up!
+  argc ! argv ! pathstring 2!  main-task up!
   sp@ dup s0 ! $10 + dup >tib ! tibstack ! #tib off >in off
   rp@ r0 !  fp@ f0 !  ['] cold catch DoError bye ;