--- gforth/kernel/int.fs	2012/07/23 15:00:53	1.193
+++ gforth/kernel/int.fs	2012/12/31 15:25:19	1.195
@@ -1,6 +1,6 @@
 \ definitions needed for interpreter only
 
-\ Copyright (C) 1995-2000,2004,2005,2007,2009,2010 Free Software Foundation, Inc.
+\ Copyright (C) 1995-2000,2004,2005,2007,2009,2010,2012 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -650,7 +650,6 @@ Defer parser1 ( c-addr u -- ... xt)
 : parser ( c-addr u -- ... )
 \ text-interpret the word/number c-addr u, possibly producing a number
     parser1 execute ;
-
 has? ec [IF]
     ' (name) Alias parse-name
     : no.extensions  2drop -&13 throw ;
@@ -681,11 +680,17 @@ Defer interpreter-notfound1 ( c-addr cou
 Defer before-word ( -- ) \ gforth
 \ called before the text interpreter parses the next word
 ' noop IS before-word
+
+Defer before-line ( -- ) \ gforth
+\ called before the text interpreter parses the next line
+' noop IS before-line
+
 [THEN]
 
 has? backtrace [IF]
 : interpret1 ( ... -- ... )
     rp@ backtrace-rp0 !
+    [ has? EC 0= [IF] ] before-line [ [THEN] ]
     BEGIN
 	?stack [ has? EC 0= [IF] ] before-word [ [THEN] ] parse-name dup
     WHILE
@@ -1079,7 +1084,7 @@ Defer mark-end
 
 : gforth ( -- )
     ." Gforth " version-string type 
-    ." , Copyright (C) 1995-2011 Free Software Foundation, Inc." cr
+    ." , Copyright (C) 1995-2012 Free Software Foundation, Inc." cr
     ." Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'"
 [ has? os [IF] ]
      cr ." Type `bye' to exit"