--- a/NewChangesBrowser.st	Thu Dec 04 12:51:23 2003 +0100
+++ b/NewChangesBrowser.st	Thu Dec 04 12:51:59 2003 +0100
@@ -2864,17 +2864,17 @@
 closeRequest
     "asks for saving before closing"
 
-    self valueOfNotSaving value ifFalse: [^nil].
+    self valueOfNotSaving value ifFalse: [^ self].
 
     modified ifTrue:[
-	(OptionBox 
-	      request:(resources string:'Changes list was modified !!') withCRs
-	      label:'Changes Browser'
-	      form:(WarningBox iconBitmap)
-	      buttonLabels:(resources array:#('Cancel' 'Forget it and proceed'))
-	      values:#(#abort #ignore)
-	      default:#save
-	) == #abort ifTrue:[^self].
+        (OptionBox 
+              request:(resources string:'Change list was modified. Exit anyway?') withCRs
+              label:'Changes Browser'
+              form:(WarningBox iconBitmap)
+              buttonLabels:(resources array:#('Cancel' 'Discard Modifications and Exit'))
+              values:#(abort ignore)
+              default:#save
+        ) == #abort ifTrue:[^ self].
     ].
     super closeRequest
 
@@ -3528,5 +3528,5 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.26 2001-09-26 15:56:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.27 2003-12-04 11:51:59 stefan Exp $'
 ! !