--- gforth/oof.fs	1996/09/19 22:17:35	1.1
+++ gforth/oof.fs	1996/09/24 19:15:04	1.2
@@ -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