1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs
index 6fcf22f7..38a8ac33 100644
--- a/src/Network/BitTorrent/Exchange/Message.hs
+++ b/src/Network/BitTorrent/Exchange/Message.hs
@@ -514,7 +514,7 @@ appendBDict ::  BDict -> ExtendedMap -> ExtendedMap
 appendBDict (Cons key val xs) caps
   | Just  ext <- fromKey     key
   , Right eid <- fromBEncode val   = M.insert ext eid (appendBDict xs caps)
-  |           otherwise            = caps
+  |           otherwise            = appendBDict xs caps
 appendBDict  Nil              caps = caps
 
 -- | Handshake compatible encoding.