diff --git a/Assistant/WebApp/Gpg.hs b/Assistant/WebApp/Gpg.hs
index 0456ec56c4..f5b60345af 100644
--- a/Assistant/WebApp/Gpg.hs
+++ b/Assistant/WebApp/Gpg.hs
@@ -85,9 +85,9 @@ getGCryptRemoteName u repoloc = do
  - Since the probing requires gcrypt to be installed, a third action must
  - be provided to run if it's not installed.
  -}
-checkGCryptRepoEncryption :: (Monad m, MonadIO m, LiftAnnex m) => String -> m a -> m a -> m a -> m a
+checkGCryptRepoEncryption :: (Monad m, LiftAnnex m) => String -> m a -> m a -> m a -> m a
 checkGCryptRepoEncryption location notencrypted notinstalled encrypted = 
-	ifM (liftIO isGcryptInstalled)
+	ifM (liftAnnex $ liftIO isGcryptInstalled)
 		( dispatch =<< liftAnnex (inRepo $ Git.GCrypt.probeRepo location)
 		, notinstalled
 		)
diff --git a/doc/bugs/build_fails_in_Assistant__47__WebApp__47__Gpg.hs.mdwn b/doc/bugs/build_fails_in_Assistant__47__WebApp__47__Gpg.hs.mdwn
index 40fe501249..172f28143a 100644
--- a/doc/bugs/build_fails_in_Assistant__47__WebApp__47__Gpg.hs.mdwn
+++ b/doc/bugs/build_fails_in_Assistant__47__WebApp__47__Gpg.hs.mdwn
@@ -53,3 +53,5 @@ Assistant/WebApp/Gpg.hs:88:40:
 
 # End of transcript or log.
 """]]
+
+> [[fixed|done]] --[[Joey]]