--- a/UnixFilename.st	Thu Sep 21 11:10:58 2017 +0200
+++ b/UnixFilename.st	Thu Sep 21 11:13:48 2017 +0200
@@ -162,7 +162,7 @@
     typeString := super fileType.
     typeString ~= 'file' ifTrue:[^ typeString].
 
-    typeString := PipeStream outputFromCommand:('file "' , self pathName , '"').
+    typeString := PipeStream outputFromCommand:('/usr/bin/file "' , self pathName , '"').
     typeString notNil ifTrue:[
         typeString := typeString copyFrom:(typeString indexOf:$:) + 1.
         typeString := typeString withoutSeparators
@@ -179,7 +179,8 @@
      './stx' asFilename fileType    
     "
 
-    "Modified: / 21.7.1998 / 11:26:32 / cg"
+    "Modified: / 21-07-1998 / 11:26:32 / cg"
+    "Modified: / 21-09-2017 / 11:09:52 / stefan"
 ! !
 
 !UnixFilename methodsFor:'queries'!