--- a/Tools__NewSystemBrowser.st	Fri Nov 18 01:34:47 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Nov 18 01:46:17 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -24120,8 +24118,8 @@
     self updateProtocolSelectionForChangedMethodSelection.
 
     "Created: / 29-08-2006 / 13:59:06 / cg"
-    "Modified: / 27-07-2012 / 22:20:42 / cg"
     "Modified: / 23-07-2014 / 12:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2016 / 01:41:27 / cg"
 !
 
 delayedVariableSelectionChanged
@@ -29789,8 +29787,13 @@
     "remove all changes for the selected class(es) from the changeSet"
 
     UserPreferences current avoidConfirmationsForExperiencedUsers ifFalse:[
-        (self confirm:'This will remove all changes for the selected class(es) from the changeSet.\\Really cleanup ?' withCRs)
-            ifFalse:[ ^ self].
+        DialogBox 
+            withOptoutOption:[ UserPreferences current avoidConfirmationsForExperiencedUsers:true]
+            labelled:'Do not show this confirmation again'
+            do:[
+                (self confirm:'This will remove all changes for the selected class(es) from the changeSet.\\Really cleanup ?' withCRs)
+                     ifFalse:[ ^ self].
+            ].
     ].
 
     self withWaitCursorDo:[
@@ -29799,7 +29802,7 @@
         ].
     ]
 
-    "Modified: / 05-09-2012 / 11:25:36 / cg"
+    "Modified: / 18-11-2016 / 01:44:30 / cg"
 !
 
 classMenuComment
@@ -47071,7 +47074,7 @@
 
         self activityNotification:nil.
         browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
-        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
         browser readOnly:true.
     ].
 
@@ -51664,7 +51667,7 @@
             label:[:chg | 
                 |lbl|
                 "/ lbl := chg printString
-                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].    
@@ -59028,6 +59031,7 @@
     ^ selectorCompletion
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass