--- a/DoWhatIMeanSupport.st	Wed Jan 29 20:38:55 2003 +0100
+++ b/DoWhatIMeanSupport.st	Mon Feb 03 21:20:15 2003 +0100
@@ -102,6 +102,13 @@
     lastNewWOSuffix := lastNewName asFilename withoutSuffix name.
     oldWOSuffix := oldName asFilename withoutSuffix name.
 
+    "/ suffix change ?
+    lastOldWOSuffix = lastNewWOSuffix ifTrue:[
+        lastOldName asFilename suffix ~= lastNewName asFilename suffix ifTrue:[
+            ^ (oldName asFilename withSuffix:(lastNewName asFilename suffix)) pathName
+        ].
+    ].
+
     prefix := lastOldWOSuffix commonPrefixWith:oldWOSuffix.
     (lastNewWOSuffix startsWith:prefix) ifTrue:[
         lastOldRest := lastOldWOSuffix copyFrom:prefix size + 1.
@@ -137,5 +144,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.2 2002-11-18 11:36:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.3 2003-02-03 20:20:15 cg Exp $'
 ! !