diff --git a/bindings/objc/objcrtl.pas b/bindings/objc/objcrtl.pas
index c409605ef..c2d146cd1 100644
--- a/bindings/objc/objcrtl.pas
+++ b/bindings/objc/objcrtl.pas
@@ -86,7 +86,7 @@ type
   //todo: types MUST BE declared properly as 2.0 opaques
   SEL = Pointer;
   IMP = Pointer;
-  id  = PtrInt;
+  id  = Pointer; //??
   size_t = LongWord;
   _Class = Pointer;
   Ivar = Pointer;
diff --git a/bindings/objc/objcrtl10.pas b/bindings/objc/objcrtl10.pas
index 7be5ad4a2..52862a756 100644
--- a/bindings/objc/objcrtl10.pas
+++ b/bindings/objc/objcrtl10.pas
@@ -200,7 +200,7 @@ function object_getClass10(obj:id): _Class; cdecl;
 var
   name  : PChar;
 begin
-  if obj = 0 then Result := nil
+  if obj = nil then Result := nil
   else begin
     Result := _Class(Pobjc_object1(obj)^.isa);
   end;
@@ -215,7 +215,7 @@ end;
 
 function object_getIvar10(obj:id; ivar:Ivar):id; cdecl;
 begin
-  Result := 0;
+  Result := nil ;
 end;
 
 procedure object_setIvar10(obj:id; ivar:Ivar; value:id); cdecl;