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. -}