--- gforth/oof.fs 1996/09/24 19:15:04 1.2 +++ 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 @ , ;