--- gforth/cross.fs	1998/05/31 19:29:22	1.55
+++ gforth/cross.fs	1998/07/05 20:49:59	1.56
@@ -68,14 +68,14 @@ Warnings off
 \G SetValue searches in the current vocabulary
  save-input bl word >r restore-input throw r> count
  get-current search-wordlist
- IF bl word drop >body ! ELSE Value THEN ;
+ IF ['] to execute ELSE Value THEN ;
 
 : DefaultValue ( n -- <name> )
 \G Same behaviour as "Value" if the <name> is not defined
 \G DefaultValue searches in the current vocabulary
  save-input bl word >r restore-input throw r> count
  get-current search-wordlist
- IF bl word drop drop drop ELSE Value THEN ;
+ IF bl word drop 2drop ELSE Value THEN ;
 
 hex