diff --git a/example/edit.forth b/example/edit.forth
old mode 100644
new mode 100755
index a593f37..97cb24e
--- a/example/edit.forth
+++ b/example/edit.forth
@@ -155,7 +155,7 @@ readability.
   TEMP-FILE file:W file:open !FID
   [ #0 @SourceFile ] dip file:for-each-line drop
   @FID file:close
-  @SourceFile TEMP-FILE 'mv_%s_%s s:with-format unix:system ;
+  here TEMP-FILE file:slurp here @SourceFile file:spew ;
 
 :current? (n-nf)
   over @CurrentLine eq? ;