--- a/ChangesBrowser.st	Thu Jan 13 01:16:57 1994 +0100
+++ b/ChangesBrowser.st	Sun Jan 16 05:00:29 1994 +0100
@@ -28,7 +28,7 @@
 
 this class implements a changes browser.
 
-$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.6 1994-01-08 17:22:50 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.7 1994-01-16 03:59:52 claus Exp $
 written jan 90 by claus
 '!
 
@@ -443,13 +443,16 @@
                           codeView abortAction:nil. 
                           aStream close. 
                           ^self]. 
+
     changeNrProcessed := changeNr.
     [
-        sawExcla ifFalse:[
-            Compiler evaluate:chunk notifying:self
-        ] ifTrue:[
-            (Compiler evaluate:chunk notifying:self) fileInFrom:aStream
-                                                      notifying:self
+        Object abortSignal catch:[
+            sawExcla ifFalse:[
+                Compiler evaluate:chunk notifying:self
+            ] ifTrue:[
+                (Compiler evaluate:chunk notifying:self) fileInFrom:aStream
+                                                          notifying:self
+            ]
         ].
         changeNrProcessed := nil.
         codeView abortAction:nil