diff --git a/femto.tal b/femto.tal
index b2096a4..ff80c3a 100644
--- a/femto.tal
+++ b/femto.tal
@@ -716,7 +716,7 @@
     STH2kr    .File/length DEO2
     ;data     .File/write DEO2
 
-    .File/success DEI2 STH2r EQU2 ( ok? ) ,&ok JCN
+    .File/success DEI2 STH2r EQU2 ,&ok JCN
         ;messages/save-failed ,&finish JMP
     &ok
         #00 .state/modified STZ
@@ -725,6 +725,7 @@
     &finish
         ;tmp/data ;send-message JSR2
         .state/quitting LDZ ;quit-now JCN2
+        #03 .state/redraw STZ ( FIXME: why do we have to do this? )
         ;return JMP2
 
 ( begin a search, prompting for a search string )