diff --git a/lcl/interfaces/cocoa/cocoautils.pas b/lcl/interfaces/cocoa/cocoautils.pas
index e396dbc3dd..b45ebff698 100644
--- a/lcl/interfaces/cocoa/cocoautils.pas
+++ b/lcl/interfaces/cocoa/cocoautils.pas
@@ -64,6 +64,8 @@ function ColorToNSColor(const Color: TColorRef): NSColor; inline;
 
 procedure ShortcutToKeyEquivalent(const AShortCut: TShortcut; out Key: string; out shiftKeyMask: NSUInteger);
 
+function CFStringToString(AString: CFStringRef): String;
+
 implementation
 
 const
@@ -178,6 +180,8 @@ begin
     ShiftKeyMask := ShiftKeyMask + NSCommandKeyMask;
 end;
 
+
+
 function CFStringToStr(AString: CFStringRef; Encoding: CFStringEncoding = DEFAULT_CFSTRING_ENCODING): String;
 var
   Str: Pointer;
@@ -210,6 +214,11 @@ begin
   end;
 end;
 
+function CFStringToString(AString: CFStringRef): String;
+begin
+  result:=CFStringToStr(AString);
+end;
+
 function GetNSObjectView(obj: NSObject): NSView;
 begin
   Result := nil;