diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs
index f4b682e..5de40f1 100644
--- a/src/Vervis/Handler/Inbox.hs
+++ b/src/Vervis/Handler/Inbox.hs
@@ -291,4 +291,4 @@ getActorKey1R :: Handler TypedContent
 getActorKey1R = getActorKey (\ (k1, _, _) -> k1) ActorKey1R
 
 getActorKey2R :: Handler TypedContent
-getActorKey2R = getActorKey (\ (k1, _, _) -> k1) ActorKey2R
+getActorKey2R = getActorKey (\ (_, k2, _) -> k2) ActorKey2R