--- a/FileBrowser.st	Thu Aug 27 13:39:44 1998 +0200
+++ b/FileBrowser.st	Thu Aug 27 16:34:02 1998 +0200
@@ -3588,7 +3588,7 @@
 		msg := 'cannot read directory ''%1'' !!'
 	    ]
 	] ifFalse:[
-	    OperatingSystem platformName == #vms ifTrue:[
+	    OperatingSystem isVMSlike ifTrue:[
 		"/ cannot tell if it exists or is simply invisible ...
 		msg := '''%1'' is not a directory or unreadable !!'
 	    ] ifFalse:[
@@ -4822,12 +4822,11 @@
              anyImages lineIndex aFileName
              entry typ f p typeString done endIndex 
              state stopAtEnd nextState img prevFirstLine prevLastLine
-             numVisible dirSuffix thisIsVMS|
+             numVisible dirSuffix|
 
             dirSuffix := Filename directorySuffix.
             dirSuffix size > 0 ifTrue:[
                 dirSuffix := '.' , dirSuffix asLowercase.
-                thisIsVMS := OperatingSystem platformName == #vms.
             ].
 
             "/
@@ -4927,7 +4926,7 @@
                                 fileNameString := fileNameString , ' ...'
                             ] ifFalse:[
                                 fileNameString := aFileName.
-                                thisIsVMS == true ifTrue:[
+                                OperatingSystem isVMSlike ifTrue:[
                                     (aFileName endsWith:'.') ifTrue:[
                                         aFileName ~= '..' ifTrue:[
                                             fileNameString := aFileName copyWithoutLast:1
@@ -5164,5 +5163,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.252 1998-08-27 11:23:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.253 1998-08-27 14:34:02 cg Exp $'
 ! !