1 files changed, 4 insertions, 3 deletions

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 554c4ad..5b51a93 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -87,7 +87,8 @@ import           KeyRing.BuildKeyDB          (allNames', Hostnames,
                                               readSecretPEMFile,
                                               secp256k1_id,
                                               selectPublicKey,
-                                              usageFromFilter)
+                                              usageFromFilter,
+                                              preferredPGPVersion)
 
 import KeyRing.Types
 import KeyDB
@@ -1025,7 +1026,7 @@ initializeMissingPEMFiles operation ctx grip mwk transcode db = do
                  ExitFailure num -> return (tup,FailedExternal num)
                  ExitSuccess     -> return (tup,ExternallyGeneratedFile)
 
-           v <- foldM (importSecretKey transcode)
+           v <- foldM (importSecretKey transcode (preferredPGPVersion operation))
                       (KikiSuccess (db,[])) $ do
                     ((f,subspec,ms,stream,cmd),r) <- rs
                     guard $ case r of
@@ -1058,7 +1059,7 @@ initializeMissingPEMFiles operation ctx grip mwk transcode db = do
                     internalInitializer _              = Nothing
 
            mapM_ (hPutStrLn stderr) (lefts internals)
-           v <- generateInternals transcode mwk db (rights internals)
+           v <- generateInternals transcode (preferredPGPVersion operation) mwk db (rights internals)
 
            try v $ \(db,internals_rs) -> do