--- a/RegressionTests__ExternalInterfaceTests.st	Mon Mar 04 11:16:51 2019 +0100
+++ b/RegressionTests__ExternalInterfaceTests.st	Mon Mar 04 11:57:43 2019 +0100
@@ -329,6 +329,33 @@
     "
 
     "Created: / 04-03-2019 / 11:12:23 / Claus Gittinger"
+!
+
+test_call_03
+    |fn nsApp|
+
+    OperatingSystem isOSXlike ifFalse:[
+        "This test makes sense only on OSX"
+        ^ self
+    ].
+    
+    nsApp := ObjCClass named:'NSApplication'.
+    
+    fn := ExternalLibraryFunction
+            name:'sharedApplication'
+            module:nil
+            callType:'objc'
+            returnType:(CType void)
+            argumentTypes:#().
+
+    fn invokeObjCOn:nsApp.
+
+    "
+     self run:#test_call_03
+     self new test_call_03
+    "
+
+    "Created: / 04-03-2019 / 11:41:02 / Claus Gittinger"
 ! !
 
 !ExternalInterfaceTests methodsFor:'types'!
@@ -361,5 +388,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !