Index: rxe.retro
===================================================================
--- rxe.retro
+++ rxe.retro
@@ -142,15 +142,15 @@
     : key   (   -c ) @fid fread ;
     : read  ( an-  ) for key swap !+ next key 2drop ;
     : short ( an-  ) drop repeat key dup 10 =if 2drop ;then swap !+ again ;
     : all   (   -a ) @blk block 8 for dup 64 @action execute 64 + next ;
     : end   (  a-  ) @fid fclose 2drop ;
-    : common (  -  ) ask open @fid if all end then clear ;
+    : common (  -  ) ask !mode !action open @fid if all end then clear ;
   ---reveal---
-    : $${  &dump  !action :w !mode s" Save to:" common ;
-    : $$}  &read  !action :r !mode s" Read from:" common ;
-    : $$|  &short !action :r !mode s" Read from:" common ;
+    : $${  &dump  :w s" Save to:"   common ;
+    : $$}  &read  :r s" Read from:" common ;
+    : $$|  &short :r s" Read from:" common ;
   }}
 ))
 
 : edit ( - )
   &remap &remap-keys :is