diff --git a/bindings/objc/objcrtl.pas b/bindings/objc/objcrtl.pas
index 6db93a092..d6b4f1ff4 100644
--- a/bindings/objc/objcrtl.pas
+++ b/bindings/objc/objcrtl.pas
@@ -396,7 +396,7 @@ begin
   Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSend');
   {$else}
   Pointer(objc_msgSend_fpret) := GetProcedureAddress(hnd, 'objc_msgSend');
-  Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSend_streg');
+  Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSends_stret');
   {$endif}
   Result := true;
 end;
diff --git a/bindings/objc/objcrtltest.pas b/bindings/objc/objcrtltest.pas
index f584f4833..f0ffd8f16 100644
--- a/bindings/objc/objcrtltest.pas
+++ b/bindings/objc/objcrtltest.pas
@@ -21,7 +21,7 @@ uses
   objcrtl20, objcrtl10, objcrtl, objcrtlutils;
 
 {.$linkframework AppKit}
-{.$linkframework Foundation}
+{$linkframework Foundation}
 
 type
   TSubStructure = packed record
@@ -100,7 +100,7 @@ var
   cl  : _Class;
   b   : Boolean;
 begin
-  cl := objc_allocateClassPair(objcclass('NSObject'), NewClassName, 0);
+  cl := objc_allocateClassPair(objc_getClass('NSObject'), NewClassName, 0);
   b := class_addMethod(cl, selector(OverrideMethod), @imp_init, overrideMethodEnc) and
        class_addMethod(cl, selector(newMethod1), @imp_newMethod1, newMethod1Enc) and
        class_addMethod(cl, selector(newMethod2), @imp_newMethod2, newMethod2Enc) and