add: Fix reversion in 4.20130827 when adding unlocked files that have not yet been committed.

catKeyFileHEAD is still checked too, because when doing a git commit with
unlocked files, the file gets staged to the index, so is not typechanged
there.

(This is also why git annex add foo; git annex unlock foo; git commit -a
does not re-annex foo, because there is no indication left that it was
added.)

1 files changed, 2 insertions, 1 deletions

diff --git a/Seek.hs b/Seek.hs
index d140e09e8..7f74f6728 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -96,7 +96,8 @@ withFilesUnlockedToBeCommitted = withFilesUnlocked' LsFiles.typeChangedStaged
 withFilesUnlocked' :: ([FilePath] -> Git.Repo -> IO ([FilePath], IO Bool)) -> (FilePath -> CommandStart) -> CommandSeek
 withFilesUnlocked' typechanged a params = prepFiltered a unlockedfiles
   where
-  	check f = liftIO (notSymlink f) <&&> isJust <$> catKeyFileHEAD f
+  	check f = liftIO (notSymlink f) <&&> 
+		(isJust <$> catKeyFile f <||> isJust <$> catKeyFileHEAD f)
 	unlockedfiles = filterM check =<< seekHelper typechanged params
 
 {- Finds files that may be modified. -}