diff --git a/network-bitcoin.cabal b/network-bitcoin.cabal
--- a/network-bitcoin.cabal
+++ b/network-bitcoin.cabal
@@ -1,5 +1,5 @@
 Name:                network-bitcoin
-Version:             1.7.1
+Version:             1.7.2
 Synopsis:            An interface to bitcoind.
 Description:
     This can be used to send Bitcoins, query balances, etc.  It
diff --git a/src/Network/Bitcoin/Internal.hs b/src/Network/Bitcoin/Internal.hs
--- a/src/Network/Bitcoin/Internal.hs
+++ b/src/Network/Bitcoin/Internal.hs
@@ -32,10 +32,8 @@
 import           Data.Vector ( Vector )
 import qualified Data.Vector          as V
 import           Network.Bitcoin.Types
-import qualified Data.ByteString.Lazy as BL
 import qualified Data.ByteString      as BS
 import           Data.Text ( Text )
-import qualified Data.Text            as T
 import           Network.HTTP.Client
 import           Network.HTTP.Types.Header
 
@@ -85,14 +83,14 @@
 
 -- | 'callApi' is a low-level interface for making authenticated API
 --   calls to a Bitcoin daemon. The first argument specifies
---   rpc client details (URL, username, password) 
+--   rpc client details (URL, username, password)
 --
 --   The second argument is the command name.  The third argument provides
 --   parameters for the API call.
 --
 --   > genHash = do
 --       client <- getClient "http://127.0.0.1:8332" "user" "password"
---       callApi client "getblockhash" [tj 0] 
+--       callApi client "getblockhash" [tj 0]
 --
 --   On error, throws a 'BitcoinException'.
 callApi :: FromJSON v
@@ -145,4 +143,3 @@
 
 instance ToJSON AddrAddress where
     toJSON (AA vec) = object . V.toList $ uncurry (.=) <$> vec
-
diff --git a/src/Network/Bitcoin/Wallet.hs b/src/Network/Bitcoin/Wallet.hs
--- a/src/Network/Bitcoin/Wallet.hs
+++ b/src/Network/Bitcoin/Wallet.hs
@@ -697,7 +697,7 @@
                -- ^ The new password.
                -> IO ()
 changePassword client old new =
-    unNil <$> callApi client "walletpassphrase" [ tj old, tj new ]
+    unNil <$> callApi client "walletpassphrasechange" [ tj old, tj new ]
 
 -- | Removes the wallet encryption key from memory, locking the wallet.
 --