diff --git a/bin/hledger-print-location.hs b/bin/hledger-print-location.hs
index e5b083963..56bd390e9 100755
--- a/bin/hledger-print-location.hs
+++ b/bin/hledger-print-location.hs
@@ -43,7 +43,7 @@ main = do
 addLocationTag :: Transaction -> Transaction
 addLocationTag t = t{tcomment = tcomment t `commentAddTagNextLine` loctag}
   where
-    loctag = ("location", T.pack . showSourcePosPair $ tsourcepos t)
+    loctag = ("location", T.pack . sourcePosPairPretty $ tsourcepos t)
 
 -- Like showSourcePosPair in Hledger.Data.Transaction, but show just the starting line number.
 showSourcePosPairLine :: (SourcePos, SourcePos) -> String