diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 596a5282010a3e6ac74307693e68dec6778d3ae1..58d933e15a92f0955082af31867b9de2a40283d9 100644
--- a/src/Tahoe/Download.hs
+++ b/src/Tahoe/Download.hs
@@ -40,7 +40,7 @@ import qualified Tahoe.CHK.Encrypt
 import Tahoe.CHK.Server (StorageServer (..), StorageServerID)
 import Tahoe.CHK.Types (ShareNum, StorageIndex)
 import TahoeLAFS.Storage.API (CBORSet (..), ShareNumber (ShareNumber))
-import TahoeLAFS.Storage.Client (getImmutableShareNumbers, readImmutableShares)
+import TahoeLAFS.Storage.Client (getImmutableShareNumbers, readImmutableShare)
 import Text.Read (readMaybe)
 
 {- | An unrecoverable problem arose while attempting to download and/or read
@@ -269,7 +269,7 @@ makeServer
                     storageServerWrite = undefined
 
                     storageServerRead storageIndex shareNum = do
-                        let clientm = readImmutableShares (toBase32 storageIndex) (ShareNumber $ fromIntegral shareNum) Nothing
+                        let clientm = readImmutableShare (toBase32 storageIndex) (ShareNumber $ fromIntegral shareNum) Nothing
                         res <- runClientM clientm env
                         case res of
                             Left err -> throwIO err