--- a/NewChangesBrowser.st	Fri May 29 19:10:00 1998 +0200
+++ b/NewChangesBrowser.st	Tue Jun 02 18:24:44 1998 +0200
@@ -2919,7 +2919,7 @@
     self withSelectedChangeDo:[:change|
         skipSignal := nil.
         self applyChange:change.
-        self autoSelectChange: (self listOfChanges at: (self listOfChanges indexOf: change) ifAbsent: nil)
+        self autoSelectChange: (self listOfChanges at: (self listOfChanges indexOf: change) + 1 ifAbsent: [^self autoSelectLast])
     ]
 !
 
@@ -3478,5 +3478,5 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.15 1998-05-20 01:54:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.16 1998-06-02 16:24:44 tz Exp $'
 ! !