diff --git a/Config.hs b/Config.hs
index 10777303a3..11b5f4c939 100644
--- a/Config.hs
+++ b/Config.hs
@@ -65,6 +65,8 @@ semiCheapRemoteCost :: Int
 semiCheapRemoteCost = 110
 expensiveRemoteCost :: Int
 expensiveRemoteCost = 200
+veryExpensiveRemoteCost :: Int
+veryExpensiveRemoteCost = 1000
 
 {- Adjusts a remote's cost to reflect it being encrypted. -}
 encryptedRemoteCostAdj :: Int
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs
index d886d89e33..8a54b542e5 100644
--- a/Remote/Glacier.hs
+++ b/Remote/Glacier.hs
@@ -37,7 +37,7 @@ remote = RemoteType {
 
 gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex Remote
 gen r u c = do
-	cst <- remoteCost r expensiveRemoteCost
+	cst <- remoteCost r veryExpensiveRemoteCost
 	return $ gen' r u c cst
 gen' :: Git.Repo -> UUID -> Maybe RemoteConfig -> Int -> Remote
 gen' r u c cst =