--- gforth/Attic/conditionals.fs	1997/01/29 21:39:10	1.1
+++ gforth/Attic/conditionals.fs	1997/03/13 23:40:31	1.3
@@ -1,5 +1,23 @@
 \ Structural Conditionals                              12dec92py
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 here 0 , \ just a dummy, the real value of locals-list is patched into it in glocals.fs
 AConstant locals-list \ acts like a variable that contains
 		      \ a linear list of locals names
@@ -113,12 +131,12 @@ variable backedge-locals
 : ?DUP-0=-IF ( compilation -- orig ; run-time n -- n| ) \ gforth	question-dupe-zero-equals-if
     POSTPONE ?dup-0=-?branch >mark ;       immediate restrict
 
-Defer then-like ( orig -- addr )
-: cs>addr ( orig/dest -- addr )  drop nip ;
+Defer then-like ( orig -- )
+: cs>addr ( orig/dest -- )  drop >resolve drop ;
 ' cs>addr IS then-like
 
 : THEN ( compilation orig -- ; run-time -- ) \ core
-    dup orig?  then-like  >resolve ; immediate restrict
+    dup orig?  then-like ; immediate restrict
 
 ' THEN alias ENDIF ( compilation orig -- ; run-time -- ) \ gforth
 immediate restrict