--- a/ChangesBrowser.st	Tue Jan 07 23:05:04 1997 +0100
+++ b/ChangesBrowser.st	Tue Jan 07 23:06:59 1997 +0100
@@ -487,13 +487,15 @@
             box okText:(resources at:'update').
             box yesAction:[self writeBackChanges] 
                  noAction:[].
-            box showAtPointer
+            box showAtPointer.
+            box destroy
         ].
         ^ self
     ].
     super update:what
 
     "Created: 15.6.1996 / 15:26:30 / cg"
+    "Modified: 7.1.1997 / 23:03:47 / cg"
 ! !
 
 !ChangesBrowser methodsFor:'private'!
@@ -2169,13 +2171,16 @@
     yesNoBox noText:(resources at:'abort').
     yesNoBox okAction:[   |changeNr|
 
-			  changeNr := changeListView selection.
-			  changeNr notNil ifTrue:[
-			      self makeChangePermanent:changeNr.
-			      self autoSelect:(changeNr + 1)
-			  ]
-		      ].
-    yesNoBox showAtPointer
+                          changeNr := changeListView selection.
+                          changeNr notNil ifTrue:[
+                              self makeChangePermanent:changeNr.
+                              self autoSelect:(changeNr + 1)
+                          ]
+                      ].
+    yesNoBox showAtPointer.
+    yesNoBox destroy
+
+    "Modified: 7.1.1997 / 23:03:33 / cg"
 !
 
 doSave
@@ -2337,5 +2342,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.95 1997-01-05 19:27:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.96 1997-01-07 22:06:59 cg Exp $'
 ! !