--- gforth/kernel/int.fs	2006/02/05 17:54:40	1.130
+++ gforth/kernel/int.fs	2006/02/05 21:22:05	1.131
@@ -678,6 +678,8 @@ Variable #fill-bytes
 [THEN]
 
 has? new-input 0= [IF]
+: input-start-line ( -- ) >in off ;
+: start-lexeme ( addr -- ) drop ;
 : refill ( -- flag ) \ core-ext,block-ext,file-ext
     \G Attempt to fill the input buffer from the input source.  When
     \G the input source is the user input device, attempt to receive
@@ -808,6 +810,7 @@ Defer .status
 
 \ \ DOERROR (DOERROR)                        		13jun93jaw
 
+has? ec 0= [IF]
 8 Constant max-errors
 5 has? file 2 and + Constant /error
 Variable error-stack  0 error-stack !
@@ -960,6 +963,11 @@ Defer mark-end
 
 ' (DoError) IS DoError
 
+[ELSE]
+    : dec.  base @ >r decimal . r> base ! ;
+    : DoError ( throw-code -- ) ." Error# " dec. cr ;
+[THEN]
+
 : quit ( ?? -- ?? ) \ core
     \G Empty the return stack, make the user input device
     \G the input source, enter interpret state and start