diff --git a/CHANGELOG b/CHANGELOG
index 5779bbbeef..4a4db3d5c3 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -3,6 +3,7 @@ git-annex (7.20190220) UNRELEASED; urgency=medium
   * Fix storage of metadata values containing newlines.
     (Reversion introduced in version 7.20190122.)
   * Sped up git-annex export in repositories with lots of keys.
+  * Fix cleanup of git-annex:export.log after git-annex forget --drop-dead.
 
  -- Joey Hess <id@joeyh.name>  Wed, 20 Feb 2019 14:20:59 -0400
 
diff --git a/Logs.hs b/Logs.hs
index 2122079284..8b73d297ca 100644
--- a/Logs.hs
+++ b/Logs.hs
@@ -25,13 +25,15 @@ data LogVariety
 getLogVariety :: FilePath -> Maybe LogVariety
 getLogVariety f
 	| f `elem` topLevelOldUUIDBasedLogs = Just OldUUIDBasedLog
-	| isRemoteStateLog f || isRemoteContentIdentifierLog f = Just NewUUIDBasedLog
+	| f `elem` topLevelNewUUIDBasedLogs = Just NewUUIDBasedLog
+	| isRemoteStateLog f = Just NewUUIDBasedLog
+	| isRemoteContentIdentifierLog f = Just NewUUIDBasedLog
 	| isChunkLog f = ChunkLog <$> chunkLogFileKey f
 	| isRemoteMetaDataLog f = Just RemoteMetaDataLog
 	| isMetaDataLog f || f `elem` otherLogs = Just OtherLog
 	| otherwise = PresenceLog <$> firstJust (presenceLogs f)
 
-{- All the (old-format) uuid-based logs stored in the top of the git-annex branch. -}
+{- All the old-format uuid-based logs stored in the top of the git-annex branch. -}
 topLevelOldUUIDBasedLogs :: [FilePath]
 topLevelOldUUIDBasedLogs =
 	[ uuidLog
@@ -44,9 +46,15 @@ topLevelOldUUIDBasedLogs =
 	, activityLog
 	, differenceLog
 	, multicastLog
-	, exportLog
 	]
 
+{- All the new-format uuid-based logs stored in the top of the git-annex branch. -}
+topLevelNewUUIDBasedLogs :: [FilePath]
+topLevelNewUUIDBasedLogs =
+	[ exportLog
+	]
+
+
 {- All the ways to get a key from a presence log file -}
 presenceLogs :: FilePath -> [Maybe Key]
 presenceLogs f =