--- a/FileBrowser.st	Sat Apr 13 15:07:12 2002 +0200
+++ b/FileBrowser.st	Sat Apr 13 18:22:43 2002 +0200
@@ -3120,7 +3120,7 @@
 !
 
 goodRenameDefaultFor:oldName lastOld:lastOldName lastNew:lastNewName
-    |prefix suffix lastNewSize lastOldSize t n
+    |prefix suffix lastNewSize lastOldSize t
      lastOldWOSuffix lastNewWOSuffix oldWOSuffix lastOldRest oldRest lastNewRest
      lastRemoved lastInserted|
 
@@ -3158,7 +3158,7 @@
     lastNewWOSuffix := lastNewName asFilename withoutSuffix name.
     oldWOSuffix := oldName asFilename withoutSuffix name.
 
-    prefix := (Array with:lastOldWOSuffix with:oldWOSuffix) longestCommonPrefix.
+    prefix := lastOldWOSuffix commonPrefixWith:oldWOSuffix.
     (lastNewWOSuffix startsWith:prefix) ifTrue:[
         lastOldRest := lastOldWOSuffix copyFrom:prefix size + 1.
         lastNewRest := lastNewWOSuffix copyFrom:prefix size + 1.
@@ -3170,10 +3170,10 @@
         ].
     ].
 
-    suffix := (Array with:lastOldWOSuffix with:lastNewWOSuffix) longestCommonSuffix.
+    suffix := lastOldWOSuffix commonSuffixWith:lastNewWOSuffix.
     suffix size > 0 ifTrue:[
         "/ last change changed something at the beginning
-        prefix := oldWOSuffix commonPrefixWith:lastOldWOSuffix ignoreCase:false.
+        prefix := oldWOSuffix commonPrefixWith:lastOldWOSuffix.
         prefix size > 0 ifTrue:[
             "/ this name starts with the same characters
             lastRemoved := lastOldWOSuffix copyWithoutLast:suffix size.
@@ -7804,5 +7804,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.463 2002-04-13 13:07:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.464 2002-04-13 16:21:55 cg Exp $'
 ! !