diff --git a/Command/TestRemote.hs b/Command/TestRemote.hs
index 0ac54a6303..72f4bb054a 100644
--- a/Command/TestRemote.hs
+++ b/Command/TestRemote.hs
@@ -162,7 +162,7 @@ test st r k = catMaybes
 	, whenwritable $ check "storeKey" store
 	, whenwritable $ present True
 	, whenwritable $ check "storeKey when already present" store
-	, whenwritable $ present True
+	, Just $ present True
 	, Just $ check "retrieveKeyFile" $ do
 		lockContentForRemoval k removeAnnex
 		get