diff --git a/src/Xero.hs b/src/Xero.hs
index 49073f2..2540e10 100644
--- a/src/Xero.hs
+++ b/src/Xero.hs
@@ -463,5 +463,6 @@ payXeroInvoice pipe dbName inv address amt zec = do
             setRequestHost "api.xero.com" $
             setRequestMethod "PUT" defaultRequest
       res <- httpJSON req :: IO (Response Object)
+      print res
       return ()
     else error "Invalid parameters"
diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 906de71..ff68a61 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -747,7 +747,8 @@ routes pipe config = do
                                                              ]
                                                              False
                                                              (xi_number xI)
-                                                             (xi_shortcode xI)
+                                                             (xr_shortCode
+                                                                invReq)
                                                              (T.pack tk)
                                                      _ <-
                                                        liftAndCatchIO $