--- a/ChangesBrowser.st	Sun Jul 23 14:00:13 2017 +0200
+++ b/ChangesBrowser.st	Tue Jul 25 11:04:17 2017 +0200
@@ -182,7 +182,7 @@
 'Delete all changes for the selected change''s class'
 
 deleteForClassFromBegin
-'Delete all previous changes for the selected change''s class'
+'Delete this and all previous changes for the selected change''s class'
 
 deleteForClassToEnd
 'Delete this and all following changes for the selected change''s class'
@@ -191,10 +191,10 @@
 'Delete all changes for the selected method'
 
 deleteClassSelectorOlder
-'Delete previous changes for the selected method'
+'Delete this and all previous changes for the selected method'
 )
 
-    "Modified: / 07-07-2017 / 12:52:44 / cg"
+    "Modified: / 25-07-2017 / 10:55:55 / cg"
 ! !
 
 !ChangesBrowser class methodsFor:'menu specs'!
@@ -2464,7 +2464,7 @@
     classNameSelectorPairsToDelete := Set new.
     upToPerClassAndSelector := Dictionary new.
     
-    "/ collect what is to be deleted
+    "/ collect info on what is to be deleted
     self withSelectedChangesDo:[:changeNr |
         |className selector|
 
@@ -2488,7 +2488,7 @@
 
             className := pair key.
             selector  := pair value.
-            lastToDelete := (upToPerClassAndSelector at:pair) - 1.
+            lastToDelete := (upToPerClassAndSelector at:pair).
             
             numDeletedBefore := self
                                    silentDeleteChangesFor:className selector:selector
@@ -2501,6 +2501,8 @@
 
     self setChangeList.
     self autoSelectOrEnd:lastChangeNr
+
+    "Modified: / 25-07-2017 / 10:57:31 / cg"
 !
 
 doDeleteFromBeginning