--- gforth/oof.fs	1996/09/19 22:17:35	1.1
+++ gforth/oof.fs	1996/10/13 19:56:22	1.3
@@ -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 @ , ;
@@ -494,7 +494,7 @@ Objects definitions
 
 : implement ( interface -- )
     align here over , ob-interface @ , ob-interface !
-    :ilist + @ >r get-order r> swap 1+ set-order ;
+    :ilist + @ >r get-order r> swap 1+ set-order  1 voc# +! ;
 
 : inter-method, ( interface -- )
     :ilist + @ bl word count 2dup s" '" compare