Fixed check for existing tor id.

1 files changed, 1 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index b5f87cd..5d29a6e 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1397,7 +1397,7 @@ doImport doDecrypt db (fname,subspec,ms,_) = do
                      -- TODO: check for omitted real name field
                      (sigtrusts,om) <- Map.lookup idstr uids
                      listToMaybe $ do
-                         s <- (signatures $ Message (key:map (packet . fst) sigtrusts))
+                         s <- (signatures $ Message (packet top:UserIDPacket idstr:map (packet . fst) sigtrusts))
                          signatures_over $ verify (Message [packet top]) s
                 flip (flip maybe $ const $ return uids) has_torid $ do
                 wkun <- doDecrypt (packet top)