--- gforth/envos.fs.in	2008/08/08 20:56:14	1.8
+++ gforth/envos.fs.in	2008/08/09 21:26:21	1.9
@@ -38,4 +38,6 @@ set-current
 @FFCALLFLAG@ constant ffcall-present \ libffi present (on building)
 @LIBFFIFLAG@ constant libffi-present \ ffcall libs present (on building)
 
+: include-ffi.h-string ( -- c-addr u )
+  s" #include <@FFI_H_NAME@>" ;