diff --git a/src/Pelican/API.hs b/src/Pelican/API.hs
index ab65f1066dd783dd885573ffb8f85b5538c899fa..0566be1bda1abae5ee31e59b89129106656ba8f2 100644
--- a/src/Pelican/API.hs
+++ b/src/Pelican/API.hs
@@ -147,7 +147,7 @@ where
 
       receipts <- query [sql| select status :: text, ts, updated, reason
                               from history where appid = ? and updated >= ? |]
-                        (appid, since, since)
+                        (appid, since)
 
       sendJSON do
         Array $ fromList [ object [ "status"  .= (status  :: Text)