diff --git a/Amount.hs b/Amount.hs
index 0fdf8535c..315ba43fd 100644
--- a/Amount.hs
+++ b/Amount.hs
@@ -48,7 +48,7 @@ instance Show Amount where show = showAmountRounded
 
 showAmountRounded :: Amount -> String
 showAmountRounded (Amount c q p) =
-    (symbol c) ++ (punctuatethousands $ printf ("%."++show p++"f") q)
+    (symbol c) ++ ({-punctuatethousands $ -}printf ("%."++show p++"f") q)
 
 showAmountRoundedOrZero :: Amount -> String
 showAmountRoundedOrZero a@(Amount c _ _) =