diff --git a/ueforth/common/boot.fs b/ueforth/common/boot.fs
index 9582286..8adf584 100644
--- a/ueforth/common/boot.fs
+++ b/ueforth/common/boot.fs
@@ -192,7 +192,8 @@ variable hld
 ( Fill, Move )
 : cmove ( a a n -- ) for aft >r dup c@ r@ c! 1+ r> 1+ then next 2drop ;
 : cmove> ( a a n -- ) for aft 2dup swap r@ + c@ swap r@ + c! then next 2drop ;
-: fill ( a a n -- ) swap for swap aft 2dup c! 1 + then next 2drop ;
+: fill ( a n ch -- ) swap for swap aft 2dup c! 1 + then next 2drop ;
+: erase ( a n -- ) 0 fill ;   : blank ( a n -- ) bl fill ;
 
 ( Better Errors )
 : notfound ( a n n -- )