--- gforth/intcomp.fs	1996/09/23 08:52:48	1.3
+++ gforth/intcomp.fs	2003/03/09 15:16:50	1.8
@@ -1,6 +1,6 @@
 \ defining words for words with non-default and non-immediate compilation semantics
 
-\ Copyright (C) 1996 Free Software Foundation, Inc.
+\ Copyright (C) 1996,1997,2000 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -16,7 +16,7 @@
 
 \ 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.
+\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 
 \ used like
 \ : <name> create-interpret/compile ...
@@ -42,12 +42,12 @@ constant no-interpretation-does-code
     [ 0 >body ] literal allot ; \ restrict?
 
 : fix-does-code ( addr ret-addr -- )
-    lastxt [ interpret/compile-struct drop ] literal + >r
+    lastxt [ interpret/compile-struct %size ] literal + >r
     lastxt interpret/compile?
     lastxt interpret/compile-int @ r@ >body = and
     lastxt interpret/compile-comp @ r> = and
     0= abort" not created with create-interpret/compile"
-    [ /does-handler cell+ cell+ ] literal + \ to does-code
+    cell+ cell+ maxaligned /does-handler + \ to does-code
     swap @ does-code! ;
 
 : (interpretation>) ( -- )