anchor.diff:     create /object @ , /object +! does> @ self + ;
   : cloned ( -- o )
      >oarena here
  -   self /object self @ wordlist ! here over @ dup allot move 
  +   /object self @ wordlist ! here over @ cell- cell- dup allot move 
      oarena> ;
   : clone ( "name" -- ) cloned constant immediate ;
   : dump  self /object @ dump ;
  
positive.code: 
  object { odefs
  : self o@ ;
  .s
  : /object self cell+ cell+ ;
  : extend odefs ;
  : extended o> o> swap >o set-current ;
  
negative.code:    here to ohere 
     sdict0 to dict0  sdicttop to dicttop  shere to here ;
  
  : { dup +order state @ if postpone literal postpone >o else >o then ; immediate
  : } previous state @ if postpone odrop else odrop then ; immediate
  : odefs get-current o> swap >o >o o@ set-current ;
  