--- a/DoWhatIMeanSupport.st	Tue Nov 07 12:53:23 2006 +0100
+++ b/DoWhatIMeanSupport.st	Tue Nov 07 14:00:12 2006 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 Object subclass:#DoWhatIMeanSupport
@@ -733,9 +732,9 @@
     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.
+    lastOldWOSuffix := lastOldName asFilename nameWithoutSuffix.
+    lastNewWOSuffix := lastNewName asFilename nameWithoutSuffix.
+    oldWOSuffix := oldName asFilename nameWithoutSuffix.
 
     "/ suffix change ?
     lastOldWOSuffix = lastNewWOSuffix ifTrue:[
@@ -783,6 +782,8 @@
     ].
 
     ^ nil
+
+    "Modified: / 07-11-2006 / 13:58:39 / cg"
 ! !
 
 !DoWhatIMeanSupport class methodsFor:'typing distance'!
@@ -835,5 +836,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.20 2006-08-10 11:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.21 2006-11-07 13:00:12 cg Exp $'
 ! !