diff --git a/blk/127 b/blk/127
index d389a87..c593a01 100644
--- a/blk/127
+++ b/blk/127
@@ -14,4 +14,3 @@
 
 
 
-
diff --git a/blk/157 b/blk/157
index f4c6b9f..a9e14d2 100644
--- a/blk/157
+++ b/blk/157
@@ -1,7 +1,7 @@
 : WIPE BLK( 1024 0 FILL BLK!! ;
 
 ( src dst -- )
-: COPY SWAP BLK@ BLK> ! BLK! ;
+: COPY FLUSH SWAP BLK@ BLK> ! BLK! ;
 
 
 
diff --git a/blk/378 b/blk/378
index 97ae670..5333eb6 100644
--- a/blk/378
+++ b/blk/378
@@ -4,10 +4,8 @@
 ;
 : FLUSH BLKDTY @ IF BLK! THEN ;
 : BLK@ ( n -- )
-    FLUSH
     DUP BLK> @ = IF DROP EXIT THEN
-    DUP BLK> ! BLK@* @ EXECUTE
-;
+    FLUSH DUP BLK> ! BLK@* @ EXECUTE ;
 
 : BLK!! 1 BLKDTY ! ;
 
diff --git a/emul/forth.bin b/emul/forth.bin
index cc5e851..9b8f087 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ