--- a/DoWhatIMeanSupport.st	Tue Oct 07 13:49:46 2008 +0200
+++ b/DoWhatIMeanSupport.st	Tue Oct 07 15:16:51 2008 +0200
@@ -320,7 +320,7 @@
                     ]
                 ].
 
-                nSelParts downTo:1 do:[:idx |
+                (nSelParts min:newParts size) downTo:1 do:[:idx |
                     |newPart oldPartialToken start stop|
 
                     newPart := newParts at:idx.
@@ -1652,5 +1652,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.38 2008-10-07 10:46:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.39 2008-10-07 13:16:51 cg Exp $'
 ! !