--- gforth/kernel/main.fs	2012/07/23 14:15:52	1.48
+++ gforth/kernel/main.fs	2012/07/23 14:46:31	1.49
@@ -63,6 +63,7 @@ has? kernel-size
     0 A,                \ throw entry point
     0 A,                \ quit entry point
     0 A,                \ execute entry point
+    0 A,                \ find entry point
     0 ,                 \ base of DOUBLE_INDIRECT xts[], for comp-i.fs
 [THEN]
 
@@ -126,9 +127,10 @@ has? header [IF]
     \ set image size
     here image-header 2 cells + !         
     ." set image entry point" cr
-    ' boot >body  image-header 8 cells + A!
-    ' quit >body  image-header #10 cells + A!
-    ' do-execute >body image-header #11 cells + A!
+    ' boot       >body  image-header #08 cells + A!
+    ' quit       >body  image-header #10 cells + A!
+    ' do-execute >body  image-header #11 cells + A!
+    ' do-find    >body  image-header #12 cells + A!
 [ELSE]
     >boot
 [THEN]