1 files changed, 1 insertions, 1 deletions
diff --git a/keysafe.hs b/keysafe.hs
index 24ccc1f..0f8cf51 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -27,7 +27,7 @@ storedemo = do
 	putStrLn "Very rough estimate of cost to brute-force the password:"
 	print $ estimateAttack spotAWS $ estimateBruteforceOf kek
 		(passwordEntropy password)
-	let esk = encrypt kek secretkey
+	let esk = encrypt tunables kek secretkey
 	let sis = shardIdents tunables name keyid
 	shards <- genShards esk tunables
 	print =<< mapM (uncurry (storeShard localFiles)) (zip (getIdents sis) shards)