diff --git a/Codec/Archive/FileCollection.hs b/Codec/Archive/FileCollection.hs
--- a/Codec/Archive/FileCollection.hs
+++ b/Codec/Archive/FileCollection.hs
@@ -192,7 +192,7 @@
      return $ map (getFile arch) $ map (<>target)
      $ filter (elem target . getDirectoryContents' arch) subs
   doesFileExist arch path= case findEntryByPath path arch of
-    Just e → if null $ subFiles arch $ eRelativePath e
+    Just e → if 1 < length $ subFiles arch $ eRelativePath e
              then return True
              else return False
     Nothing → return False
diff --git a/file-collection.cabal b/file-collection.cabal
--- a/file-collection.cabal
+++ b/file-collection.cabal
@@ -1,5 +1,5 @@
 name:                file-collection
-version:             0.1.1.6
+version:             0.1.1.7
 synopsis:            Provide a uniform interface over file archives and directories
 description:         The interface is essentially the same as that provided by
                      `directory`, except each function also take reference to the