--- a/PCFilename.st	Thu Apr 26 18:20:16 2018 +0200
+++ b/PCFilename.st	Wed May 02 17:27:59 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -615,13 +617,14 @@
     |osName|
 
     osName := self osNameForAccess.
-    (OperatingSystem getBinaryType:osName) notNil ifTrue:[
-        ^ true.
-    ].
 
-    (#('bat' 'cmd') includes:self suffix asLowercase) ifTrue:[
-        ^ (OperatingSystem isValidPath:osName)      
-            and:[(OperatingSystem isDirectory:osName) not].
+    ((OperatingSystem isValidPath:osName)      
+        and:[(OperatingSystem isDirectory:osName) not]) ifTrue:[
+        (#('exe' 'com') includes:self suffix asLowercase) ifTrue:[
+            "take care: getBinaryType is very slow on network shares!!"
+            ^ (OperatingSystem getBinaryType:osName) notNil
+        ].
+        ^ #('bat' 'cmd') includes:self suffix asLowercase.
     ].
     ^ false