--- a/ChangesBrowser.st	Tue Aug 05 16:40:01 1997 +0200
+++ b/ChangesBrowser.st	Tue Aug 05 23:14:50 1997 +0200
@@ -2399,7 +2399,13 @@
     changeNrShown notNil ifTrue:[
         current := self classNameOfChange:changeNrShown.
     ].
-    nm := Dialog request:'class to search for:' initialAnswer:current.
+    nm := Dialog 
+            request:'class to search for:' 
+            initialAnswer:current
+            onCancel:nil.
+    nm isNil ifTrue:[
+        ^ self
+    ].
 
     changeNrShown isNil ifTrue:[
         search := 1.
@@ -2430,8 +2436,8 @@
     self cursor:savedCursor
 
     "Created: 8.4.1997 / 11:00:16 / cg"
-    "Modified: 8.4.1997 / 11:00:45 / cg"
     "Modified: 18.4.1997 / 12:47:52 / stefan"
+    "Modified: 5.8.1997 / 23:13:39 / cg"
 !
 
 findNextForClass
@@ -2549,5 +2555,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.114 1997-07-31 16:55:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.115 1997-08-05 21:14:50 cg Exp $'
 ! !