--- a/PCFilename.st	Wed Aug 24 15:44:54 2011 +0200
+++ b/PCFilename.st	Wed Aug 24 15:45:21 2011 +0200
@@ -526,14 +526,15 @@
 
     |mySuffix|
 
-    mySuffix := self suffix asLowercase.
-    (mySuffix = 'exe' or:[mySuffix = 'com']) ifTrue:[
+    mySuffix := self suffix asLowercase.        
+    (OperatingSystem executableFileExtensions includes: mySuffix) ifTrue:[
         ^ super isExecutableProgram
     ].
     ^ false
 
-    "Created: / 16.10.1997 / 13:19:10 / cg"
-    "Modified: / 9.9.1998 / 20:17:52 / cg"
+    "Created: / 16-10-1997 / 13:19:10 / cg"
+    "Modified: / 09-09-1998 / 20:17:52 / cg"
+    "Modified: / 23-08-2011 / 21:24:57 / jv"
 !
 
 isExplicitRelative
@@ -883,9 +884,13 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.53 2011-03-23 15:46:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.54 2011-08-24 13:45:21 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.53 2011-03-23 15:46:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.54 2011-08-24 13:45:21 vrany Exp $'
+!
+
+version_SVN
+    ^ '§Id§'
 ! !