--- a/Tools_NavigationState.st	Mon Feb 16 14:32:50 2009 +0100
+++ b/Tools_NavigationState.st	Mon Feb 16 21:36:36 2009 +0100
@@ -381,10 +381,16 @@
                 v := ViewWithAcceptAndCancelBar new.
                 v slaveView:scrollableCodeView.
                 v reallyModifiedHolder:self realModifiedStateHolder.
-                v cancelAction:[ codeView application delayedUpdateCodeWithAutoSearch:false checkModified:false.
-                                 codeView requestFocus. ].
-                v compareAction:[ codeView application doCompareIn:self.
-                                  codeView requestFocus ].
+                v cancelAction:[
+                        codeView setClipboardText:(codeView contents).   "/ for undo
+                        codeView application 
+                            delayedUpdateCodeWithAutoSearch:false checkModified:false.
+                        codeView requestFocus. 
+                    ].
+                v compareAction:[ 
+                        codeView application doCompareIn:self.
+                        codeView requestFocus 
+                    ].
                 scrollableCodeView := v.
             ]
         ].
@@ -1295,5 +1301,5 @@
 !NavigationState class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.26 2008-10-16 08:34:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.27 2009-02-16 20:36:36 cg Exp $'
 ! !