1 files changed, 1 insertions, 1 deletions

diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index 7cfbd193..f427421e 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -306,7 +306,7 @@ lookupSharedSecret TransportCrypto{secretsCache} sk recipient nonce = do
             let (r,v) = case MM.lookup' sk smm of
                     Nothing | let miss = computeSharedSecret sk recipient
                                       -> (miss, MM.insertTake' 3 sk miss (Down now) smm)
-                    Just (stamp2,hit) -> (hit , MM.insertTake' 3 sk hit  (Down now) smm)
+                    Just (stamp2,hit) -> (hit , MM.insert' sk hit (Down now) smm)
             writeTVar (sharedSecret secretsCache)
                       (MM.insertTake' 160 recipient v (Down now) mm)
             return $ r nonce