--- a/AbstractFileBrowser.st	Mon Apr 29 17:51:09 2019 +0200
+++ b/AbstractFileBrowser.st	Wed May 01 11:44:53 2019 +0200
@@ -308,7 +308,7 @@
     |fn|
 
     fn := Dialog 
-            requestFileNameForSave:(self resources string:'Save Bookmarks')
+            requestFileNameForSave:(self resourceString:'Save Bookmarks')
             default:(self defaultBookMarksFilename)
             fromDirectory:(self defaultBookMarksFileDirectory).
     fn isEmptyOrNil ifTrue:[^ self].
@@ -316,6 +316,7 @@
     self saveBookmarksIn:fn
 
     "Modified: / 27-10-2010 / 11:27:09 / cg"
+    "Modified: / 01-05-2019 / 11:14:19 / Claus Gittinger"
 !
 
 saveBookmarks: bookmarks in:aFileNameOrString
@@ -6700,7 +6701,7 @@
         self currentSelectedFiles do:[:fn |
             |changeSet|
 
-            fn suffix asLowercase = 'st' ifTrue:[
+            (fn suffix sameAs:'st') ifTrue:[
                 changeSet := GSTFileReader new changeSetFromStream:fn readStream.
                 (Tools::ChangeSetBrowser2 
                         on: changeSet
@@ -6714,6 +6715,7 @@
     ]
 
     "Created: / 23-09-2018 / 01:32:46 / Claus Gittinger"
+    "Modified: / 01-05-2019 / 11:21:34 / Claus Gittinger"
 !
 
 conversionChainFrom:inSuffix to:outSuffix
@@ -7138,7 +7140,7 @@
         self currentSelectedFiles do:[:fn |
             |version snapshot|
 
-            fn suffix asLowercase = 'mcz' ifTrue:[
+            (fn suffix sameAs:'mcz') ifTrue:[
                 version := (Smalltalk at:#'MCMczReader') versionFromFile:fn.
                 snapshot := version snapshot.
                 (Tools::ChangeSetBrowser2 
@@ -7152,7 +7154,7 @@
         ]
     ]
 
-    "Modified: / 26-09-2018 / 12:39:05 / Claus Gittinger"
+    "Modified: / 01-05-2019 / 11:23:23 / Claus Gittinger"
 !
 
 doOpenSettings
@@ -9117,8 +9119,10 @@
 canOpenMonticelloBrowser
     ^ self currentSelectedFiles
         contains:[:fileName|
-            fileName suffix asLowercase = 'mcz'
+            fileName suffix sameAs:'mcz'
         ]
+
+    "Modified: / 01-05-2019 / 11:21:16 / Claus Gittinger"
 !
 
 canReadAbbrevFile
@@ -9188,8 +9192,10 @@
 hasResourceFileSelected
     ^ (self currentSelectedFiles) 
         contains:[:fn | 
-            fn suffix asLowercase = 'rs'
-        ].
+            fn suffix sameAs:'rs'
+        ].
+
+    "Modified: / 01-05-2019 / 11:23:30 / Claus Gittinger"
 !
 
 hasSlideShow