diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 83539ed..7cfe0c0 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1805,7 +1805,12 @@ generateToken = do
 getBlockInfo ::
      BS.ByteString -> BS.ByteString -> SC.Scientific -> IO (Maybe BlockResponse)
 getBlockInfo nodeUser nodePwd bh = do
-  blockInfo <- makeZcashCall nodeUser nodePwd "getblock" [Number bh]
+  blockInfo <-
+    makeZcashCall
+      nodeUser
+      nodePwd
+      "getblock"
+      [Number bh, Number $ SC.scientific 1 0]
   let content = getResponseBody blockInfo :: RpcResponse BlockResponse
   if isNothing (err content)
     then return $ result content