anchor.diff:      latest := en;
     end;
   
  -function TDict.Lookup( s : string; var item : TObj): boolean;
  +function TDict.Lookup( s : string; var item : TObject): boolean;
     var en : TEntry; found : boolean;
     begin
       en := latest;
  
positive.code: 
  procedure TShellMorph.invoke( cmd : string );
    var o : TObj;
    begin
      if words.Lookup(cmd, o) then
        begin
          kvm.fg('g');
          writeln( o.Str );
        end
      else
        begin
  
negative.code: implementation
  
  {-- fixed-size data blocks --------}
  type
    Block = array[ 0 .. 1023 ] of byte;
  