diff --git a/src/Kululaskusilppuri/Types.hs b/src/Kululaskusilppuri/Types.hs
index ecc7482..7c29b9e 100644
--- a/src/Kululaskusilppuri/Types.hs
+++ b/src/Kululaskusilppuri/Types.hs
@@ -36,10 +36,15 @@ instance ToNamedRecord Kululasku where
     toNamedRecord Kululasku {..} = namedRecord
         [ referenceField .= referenceNumber 
         , submitterField .= submitter
-        , amountField .= amount
+         -- Kitsas reads this as money to our bank account and kululaskut.fi
+         -- reports what we need to pay. Negating it makes them understand each other
+        , amountField .= negateBS amount
         , descriptionField .= description
         , dateField .= paymentDate
         ]
+            where negateBS bs = case LC8.head bs of
+                                  '-' -> LC8.tail bs
+                                  _ -> LC8.cons '-' bs
 
 instance DefaultOrdered Kululasku where
     headerOrder _ = header [dateField, referenceField, submitterField, amountField, descriptionField]