--- a/DoWhatIMeanSupport.st	Mon Nov 18 12:04:45 2002 +0100
+++ b/DoWhatIMeanSupport.st	Mon Nov 18 12:36:54 2002 +0100
@@ -55,9 +55,7 @@
 !DoWhatIMeanSupport class methodsFor:'rename support'!
 
 goodRenameDefaultFor:oldName lastOld:lastOldName lastNew:lastNewName
-    |prefix suffix lastNewSize lastOldSize t
-     lastOldWOSuffix lastNewWOSuffix oldWOSuffix lastOldRest oldRest lastNewRest
-     lastRemoved lastInserted|
+    |prefix suffix lastNewSize lastOldSize|
 
     lastNewName isNil ifTrue:[ ^ nil].
 
@@ -89,6 +87,17 @@
         ]
     ].
 
+    ^ nil
+!
+
+goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
+    |prefix suffix t
+     lastOldWOSuffix lastNewWOSuffix oldWOSuffix lastOldRest oldRest lastNewRest
+     lastRemoved lastInserted default|
+
+    default := self goodRenameDefaultFor:oldName lastOld:lastOldName lastNew:lastNewName.
+    default notNil ifTrue:[ ^ default].
+
     lastOldWOSuffix := lastOldName asFilename withoutSuffix name.
     lastNewWOSuffix := lastNewName asFilename withoutSuffix name.
     oldWOSuffix := oldName asFilename withoutSuffix name.
@@ -128,5 +137,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.1 2002-11-14 15:31:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.2 2002-11-18 11:36:54 cg Exp $'
 ! !