--- gforth/stuff.fs	2007/12/31 18:40:24	1.57
+++ gforth/stuff.fs	2009/09/06 22:43:23	1.61
@@ -1,6 +1,6 @@
 \ miscelleneous words
 
-\ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc.
+\ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -155,7 +155,9 @@ AUser CSP
 
 [ifdef] compiler1
 : postponer1 ( c-addr u -- ... xt )
-    2dup find-name dup if ( c-addr u nt )
+    2dup find-name
+    [ifdef] run-prelude run-prelude [then]
+    dup if ( c-addr u nt )
 	nip nip name>comp
 	2dup [comp'] [[ d= if
 	    2drop ['] compiler1 is parser1 ['] noop
@@ -387,3 +389,7 @@ previous
     endtry
     throw ;
 
+\ th
+
+: th ( addr1 u -- addr2 )
+    cells + ;