diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index c9b9a21..603eea8 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1448,6 +1448,7 @@ scanPayments config pipe = do
                 Right txs -> do
                   let r = mkRegex ".*ZGo Order::([0-9a-fA-F]{24}).*"
                   let k = filter (isRelevant r) txs
+                  print k
                   let j = map (getOrderId r) k
                   mapM_ (recordPayment p (c_dbName config) z) j
                 Left e -> print e