r1169 - ofw/core

Author: wmb
Date: 2009-05-03 10:48:11 +0200 (Sun, 03 May 2009)
New Revision: 1169

Modified:
   ofw/core/ofwcore.fth
Log:
OFW core - fixed longstanding bug in find-drop-in - unbalanced close-drop-in.





Modified: ofw/core/ofwcore.fth
===================================================================
--- ofw/core/ofwcore.fth	2009-05-03 08:47:05 UTC (rev 1168)
+++ ofw/core/ofwcore.fth	2009-05-03 08:48:11 UTC (rev 1169)
@@ -4663,6 +4663,7 @@
       di-name=  if                        ( name-adr,len id )
          nip nip                          ( id )
          ?inflate  true                   ( virtual size true )
+         close-drop-in                    ( virtual size true )
          exit
       then
    repeat