diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs
index 0e2796da27..99003f29a9 100644
--- a/Remote/Glacier.hs
+++ b/Remote/Glacier.hs
@@ -67,7 +67,8 @@ gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost
 			availability = GloballyAvailable,
 			remotetype = remote,
 			mkUnavailable = return Nothing,
-			getInfo = return [("glacier vault", getVault c)]
+			getInfo = includeCredsInfo c (AWS.creds u) $
+				[ ("glacier vault", getVault c) ]
 		}
 	specialcfg = (specialRemoteCfg c)
 		-- Disabled until jobList gets support for chunks.
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs
index 0981c4373c..932ed81e08 100644
--- a/Remote/WebDAV.hs
+++ b/Remote/WebDAV.hs
@@ -72,7 +72,8 @@ gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
 			availability = GloballyAvailable,
 			remotetype = remote,
 			mkUnavailable = gen r u (M.insert "url" "http://!dne!/" c) gc,
-			getInfo = return [("url", fromMaybe "unknown" (M.lookup "url" c))]
+			getInfo = includeCredsInfo c (davCreds u) $
+				[("url", fromMaybe "unknown" (M.lookup "url" c))]
 		}
 		chunkconfig = getChunkConfig c