--- a/Tools__ChangeSetBrowser2.st	Sun Apr 14 08:51:14 2013 +0200
+++ b/Tools__ChangeSetBrowser2.st	Sun Apr 14 13:30:53 2013 +0200
@@ -1169,6 +1169,20 @@
             )
           )
          (MenuItem
+            label: 'Change'
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Apply'
+                  itemValue: doApplySelectedChanges
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
             label: 'View'
             submenu: 
            (Menu
@@ -1369,6 +1383,16 @@
     "Modified: / 26-07-2012 / 14:31:50 / cg"
 !
 
+selectedChanges
+    | sel |
+
+    sel := selection2Holder value.
+    sel isEmptyOrNil ifTrue:[
+        sel := selection1Holder value.
+    ].
+    ^ sel select:[:each | each notNil].
+!
+
 targetNamespace:something
     targetNamespace := something.
 !
@@ -1380,11 +1404,7 @@
 theSingleSelectedChange
     | sel |
 
-    sel := selection2Holder value.
-    sel isEmptyOrNil ifTrue:[
-        sel := selection1Holder value.
-    ].
-    sel := sel select:[:each | each notNil].
+    sel := self selectedChanges.
     sel size == 1 ifTrue:[ ^ sel first ].
     ^ nil
 
@@ -1884,6 +1904,11 @@
 
 !ChangeSetBrowser2 methodsFor:'menu actions'!
 
+doApplySelectedChanges
+    self selectedChanges.
+self halt.
+!
+
 doOpen
     | file changeset |
 
@@ -2382,7 +2407,7 @@
                     answer: self targetPackage   
                     do: [
                         MCInteractiveLoadingQuery answer: true do:[
-                            updateChangefileHolder value ifTrue:[
+                            self updateChangefileHolder value ifTrue:[
                                 aChange apply
                             ] ifFalse:[
                                 Class withoutUpdatingChangesDo:[
@@ -2828,11 +2853,11 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.47 2013-04-14 06:49:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.48 2013-04-14 11:30:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.47 2013-04-14 06:49:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.48 2013-04-14 11:30:53 cg Exp $'
 !
 
 version_SVN