--- gforth/oof.fs	1996/09/24 19:15:04	1.2
+++ gforth/oof.fs	1996/11/18 21:28:18	1.4
@@ -241,7 +241,7 @@ Create chunks here 16 cells dup allot er
   >r drop r@ @ rot ! r@ swap erase r> ;
 
 : >chunk ( n -- root n' )
-  8aligned dup 3 rshift cells chunks + swap ;
+  1- -8 and dup 3 rshift cells chunks + swap 8 + ;
 
 : Dalloc ( size -- addr )
   dup 128 > IF  allocate throw EXIT  THEN
@@ -372,7 +372,7 @@ Variable last-interface  0 last-interfac
 
 : lastob!  ( -- )  lastob @ dup
     BEGIN  nip dup @ here cell+ 2 pick ! dup 0= UNTIL  drop
-    dup , op! o@ lastob ! ;
+    dup , [ order ] op! o@ lastob ! ;
 
 : thread,  ( -- )  classlist @ , ;
 : var,     ( -- )  methods @ , vars @ , ;
@@ -515,7 +515,8 @@ Vocabulary interfaces  interfaces defini
 
 : how: ( -- )  align
     here lastif @ !  0 decl !
-    last-interface @ ,  inter-list @ ,  methods @ ,  inter# @ ,
+    here  last-interface @ ,  last-interface !
+    inter-list @ ,  methods @ ,  inter# @ ,
     methods @ :inum cell+ ?DO  ['] crash ,  LOOP ;
 
 : interface; ( -- )  old-current @ set-current