--- gforth/libffi.fs	2008/03/25 10:41:30	1.17
+++ gforth/libffi.fs	2008/04/19 19:15:14	1.18
@@ -23,6 +23,10 @@
 
 require libcc.fs
 
+s" libffi.so" open-lib 0= [if]
+    .( cannot open libffi ) cr abort
+[then]
+
 \c #include <ffi.h>
 \c static Cell *gforth_RP;
 \c static char *gforth_LP;