--- a/ChangesBrowser.st	Fri Aug 23 12:01:50 2013 +0100
+++ b/ChangesBrowser.st	Fri Aug 23 12:10:52 2013 +0100
@@ -2987,12 +2987,11 @@
         |box|
 
         keepAsDefaultHolder := true asValue.
-        box := ex parameter.
+        box := ex box.
         box verticalPanel
             add:((CheckBox 
                     label:(resources string:'Use this as default in the future')) 
                     model:keepAsDefaultHolder).
-        ex proceed.
     ] do:[
         nsName := Dialog
                 request:'When applying, new classes are created in nameSpace:'
@@ -5632,24 +5631,23 @@
     direction := #forward.
 
     Dialog aboutToOpenBoxNotificationSignal handle:[:ex |
-	|box nextButton prevButton|
-
-	box := ex parameter.
-	nextButton := box okButton.
-	prevButton := Button label:(resources string:'Previous').
-	prevButton action:[direction := #backward. box okPressed.].
-	box addButton:prevButton after:nextButton.
-	nextButton label:(resources string:'Next').
-	ex proceed.
+        |box nextButton prevButton|
+
+        box := ex box.
+        nextButton := box okButton.
+        prevButton := Button label:(resources string:'Previous').
+        prevButton action:[direction := #backward. box okPressed.].
+        box addButton:prevButton after:nextButton.
+        nextButton label:(resources string:'Next').
     ] do:[
-	searchString := Dialog
-		request:msg
-		initialAnswer:initial
-		onCancel:nil.
+        searchString := Dialog
+                request:msg
+                initialAnswer:initial
+                onCancel:nil.
     ].
 
     searchString isNil ifTrue:[
-	^ nil
+        ^ nil
     ].
     aValueHolder value:direction.
     ^ searchString
@@ -6538,11 +6536,11 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.447 2013-08-10 11:12:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.448 2013-08-22 13:53:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.447 2013-08-10 11:12:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.448 2013-08-22 13:53:39 cg Exp $'
 !
 
 version_HG