--- a/DoWhatIMeanSupport.st	Thu Aug 21 20:39:37 2003 +0200
+++ b/DoWhatIMeanSupport.st	Thu Aug 28 17:40:52 2003 +0200
@@ -148,7 +148,7 @@
             lastNewSize > lastOldSize ifTrue:[
                 inserted := (lastNewName copyFrom:(left size + 1)) copyWithoutLast:(right size).
                 inserted size > 0 ifTrue:[
-                    ^ (oldName copyWithoutLast:right size) , inserted , (oldName copyLast:right size)
+                    ^ (oldName copyTo:prefix size) , inserted , (oldName copyFrom:prefix size + 1) 
                 ].
             ].
             (oldName endsWith:suffix) ifTrue:[
@@ -190,11 +190,12 @@
 
      self goodRenameDefaultFor:'bar2' lastOld:'foo1' lastNew:'foo01'  
      self goodRenameDefaultFor:'barXY' lastOld:'fooXY' lastNew:'fooY'
-     self goodRenameDefaultFor:'bar' lastOld:'foo' lastNew:'fXoo'  
-     self goodRenameDefaultFor:'bar' lastOld:'foo' lastNew:'fXXXoo'  
+     self goodRenameDefaultFor:'bar' lastOld:'foo' lastNew:'fXoo'            
+     self goodRenameDefaultFor:'bar' lastOld:'foo' lastNew:'fXXXoo'          
      self goodRenameDefaultFor:'bar' lastOld:'foo' lastNew:'foXXXo'  
 
      self goodRenameDefaultFor:'bar001' lastOld:'foo001' lastNew:'foo002_001'  
+     self goodRenameDefaultFor:'CoastCore-CSFoo' lastOld:'CoastCore-CSBar' lastNew:'Coast-Core-CSBar'  
     "
 !
 
@@ -318,5 +319,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.13 2003-08-21 18:39:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.14 2003-08-28 15:40:52 cg Exp $'
 ! !