diff --git a/src/Tahoe/Directory/Internal/Capability.hs b/src/Tahoe/Directory/Internal/Capability.hs
index 289eb59b3e40d31ac4fe5ce5463937cc779406ff..09f69bb130dfb1f3bf628371693e7ade0674b5b2 100644
--- a/src/Tahoe/Directory/Internal/Capability.hs
+++ b/src/Tahoe/Directory/Internal/Capability.hs
@@ -66,7 +66,7 @@ pVerifySDMF :: Parser (DirectoryCapability SDMF.Verifier)
 pVerifySDMF = do
     s <- getInput
     setInput $ T.replace "URI:DIR2-Verifier:" "URI:SSK-Verifier:" s
-    DirectoryCapability SDMF.pVerifier
+    DirectoryCapability <$> SDMF.pVerifier
 
 {- | Parse an SDMF directory reader capability.  As is the case for the other
  directory capability parsers, the implementation is cheesy.