diff --git a/forth/device/fcode.fs b/forth/device/fcode.fs
index 70be255..1570171 100644
--- a/forth/device/fcode.fs
+++ b/forth/device/fcode.fs
@@ -307,7 +307,9 @@ defer fcode-c@             \ get byte
 \   Defines type of new FCode function as field.
 
 : b(field)
-  $create
+  6 ,
+  ['] noop ,
+  reveal
     over ,
     +
   does>