X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/406a0545a94f43e880e883da3673f705467ecab3..5a30561336c83c45b348c1dc59fb9dc4dd15237c:/fth/system.fth

diff --git a/fth/system.fth b/fth/system.fth
index 5e7aff0..5830cce 100644
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -26,7 +26,7 @@
 \ Based on HMSL Forth
 \
 \ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
 \
 \ The pForth software code is dedicated to the public domain,
 \ and any third party may reproduce, distribute and modify
@@ -721,9 +721,11 @@ ustack 0stackp
 variable TRACE-INCLUDE
 
 : INCLUDE.MARK.START  ( c-addr u -- , mark start of include for FILE?)
-    " ::::"  pad $MOVE
-    pad $APPEND
-    pad ['] noop (:)
+    dup 5 + allocate throw >r
+    " ::::" r@ $move
+    r@ $append
+    r@ ['] noop (:)
+    r> free throw
 ;
 
 : INCLUDE.MARK.END  ( -- , mark end of include )