diff --git a/Remote/List/Util.hs b/Remote/List/Util.hs
index 866bd36867..e022d23190 100644
--- a/Remote/List/Util.hs
+++ b/Remote/List/Util.hs
@@ -39,7 +39,7 @@ keyPossibilities'
 	-> [Remote]
 	-- ^ all remotes
 	-> Annex [Remote]
-keyPossibilities' ii key remotelocations rs = do
+keyPossibilities' ii _key remotelocations rs = do
 	u <- getUUID
 	let locations = filter (/= u) remotelocations
 	let speclocations = map uuid