diff --git a/bindings/pascocoa/foundation/NSObject.inc b/bindings/pascocoa/foundation/NSObject.inc
index 51aaba1ef..e6c9166e9 100644
--- a/bindings/pascocoa/foundation/NSObject.inc
+++ b/bindings/pascocoa/foundation/NSObject.inc
@@ -302,6 +302,7 @@ end;
 procedure NSObject.release;
 begin
   objc_msgSend(Handle, sel_registerName(PChar(Str_release)), []);
+  Handle:=nil;
 end;
 
 function NSObject.autorelease: objc.id;