anchor.diff:  begin
     var mcs := mono_object_to_string(fInstance, nil);
     if mcs = nil then exit nil;
  -  exit nsstring.stringWithCharacters(^unichar(mono_string_chars(mcs))) length(mono_string_length(mcs)) ;
  +  exit NSString.stringWithCharacters(^unichar(mono_string_chars(mcs))) length(mono_string_length(mcs)) ;
   end;
   
   method MZObject.&equals(aOther: MZObject): Boolean;
  
positive.code: method MZMonoRuntime._char: MZType;
  begin
    if fchar = nil then
      fchar := new MZType withType(mono_get_char_clasS);
    exit fchar;
  end;
  
  
negative.code:   var mcs := mono_object_to_string(^MonoObject(aEx), nil);
    var lMsg: NSString := 'Exception';
    if mcs <> nil then 
      lMsg := NSString.stringWithCharacters(^unichar(mono_string_chars(mcs))) length(mono_string_length(mcs));
    
    raise new MZException withName('Exception') reason(lMsg) userInfo(nil);
  end;
  