diff --git a/wipforth.wat b/wipforth.wat
index f5710d4..a09fe7a 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1238,6 +1238,19 @@
 
  ;; : NAME-LEN 4+ C@ 31 AND ;
 
+ (data (i32.const 0x0760)
+       "\e8\06\00\00"
+       "\08NAME-LEN\00\00\00"
+       "\00\00\00\00"
+       "\a8\02\00\00"  ;; 4+
+       "\fc\03\00\00"  ;; C@
+       "\18\04\00\00"  ;; LIT
+       "\1f\00\00\00"  ;; 31
+       "\8c\03\00\00"  ;; AND
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x2c bytes
+
  ;; : FIND ( len -- entry )
  ;;   LATEST @                      \ Initial entry
  ;;