diff --git a/wipforth.wat b/wipforth.wat
index be2c560..dfe853a 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1407,6 +1407,16 @@
 
  ;; : NEGATE INVERT 1+ ;
 
+ (data (i32.const 0x0930)
+       "\6c\08\00\00"
+       "\06NEGATE\00"
+       "\00\00\00\00"
+       "\b4\03\00\00"  ;; INVERT
+       "\90\02\00\00"  ;; 1+
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x1c bytes
+
  ;; : NUMBER? ( len -- value TRUE | FALSE )
  ;;   WORDBUF                       \ Initial address
  ;;