diff --git a/src/Order.hs b/src/Order.hs
index 1f54a40..8ea88ca 100644
--- a/src/Order.hs
+++ b/src/Order.hs
@@ -261,8 +261,8 @@ updateOrderTotals o taxRate vatRate =
     (qexternalInvoice o)
     (qshortCode o)
     (qtoken o)
-    (qtax o)
-    (qvat o)
+    (updateTax o taxRate)
+    (updateTax o vatRate)
     (qtip o)
   where
     updateTax :: ZGoOrder -> Double -> Double