diff --git a/src/ZcashHaskell/Transparent.hs b/src/ZcashHaskell/Transparent.hs
index fed2ae7..6c59edd 100644
--- a/src/ZcashHaskell/Transparent.hs
+++ b/src/ZcashHaskell/Transparent.hs
@@ -59,7 +59,7 @@ genTransparentPrvKey :: Seed -> CoinType -> AccountId -> IO XPrvKey
 genTransparentPrvKey hdseed ctype accid  = do
   let coin = getValue ctype
   ioCtx <- createContext
-  let path = Deriv :| 44 :| 133 :| coin :/ 0 :/ 0 :: DerivPath
+  let path = Deriv :| 44 :| coin :| AccounId :/ 0 :/ 0 :: DerivPath
   let prvKey = makeXPrvKey hdseed
   return $  derivePath ioCtx path prvKey