--- a/FileBrowser.st	Wed Dec 16 23:42:47 1998 +0100
+++ b/FileBrowser.st	Wed Dec 30 18:36:47 1998 +0100
@@ -1118,16 +1118,19 @@
 !
 
 hasZipFileSelected
-    ^ [|sel fn|
-
-	sel := fileListView selectionValue.
-	sel size == 1 
-	and:[ ((fn := self getSelectedFileName asFilename) hasSuffix:'zip')
-	      or:[fn hasSuffix:'jar']]
+    ^ [|sel fn suff|
+
+        sel := fileListView selectionValue.
+        sel size == 1 ifTrue:[
+            suff := self getSelectedFileName asFilename suffix asLowercase.
+            suff = 'zip' or:[suff = 'jar']
+        ] ifFalse:[
+            false
+        ]
       ]
 
     "Created: / 26.8.1998 / 16:15:26 / cg"
-    "Modified: / 26.8.1998 / 16:33:05 / cg"
+    "Modified: / 30.12.1998 / 18:35:38 / cg"
 !
 
 javaSupportLoaded
@@ -6151,5 +6154,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.282 1998-12-16 22:42:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.283 1998-12-30 17:36:47 cg Exp $'
 ! !