X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/5a30561336c83c45b348c1dc59fb9dc4dd15237c..1139ec72cebc3f91f9ba68ab5ef657ec860bdc61:/fth/require.fth

diff --git a/fth/require.fth b/fth/require.fth
index c18d8c4..18a060a 100644
--- a/fth/require.fth
+++ b/fth/require.fth
@@ -20,8 +20,7 @@ private{
 : INCLUDED? ( c-addr u -- flag )
     s" ::::" here place         ( c-addr u )
     here $append                ( )
-    here latest findnfa.from    ( x found? )
-    nip
+    here find nip 0<>           ( found? )
 ;
 
 \ FIXME: use real PARSE-NAME when available