diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs
index 001cd79d3..f616349d3 100644
--- a/src/DiffSummary.hs
+++ b/src/DiffSummary.hs
@@ -63,7 +63,7 @@ toTermName source term = case unwrap term of
   S.Object kvs -> "{" <> intercalate ", " (toTermName' <$> kvs) <> "}"
   S.Pair a b -> toTermName' a <> ": " <> toTermName' b
   S.Return expr -> maybe "empty" toTermName' expr
-  S.Error span _ -> displayStartEndPos span
+  S.Error _ _ -> termNameFromSource term
   S.For _ _ -> termNameFromChildren term
   S.While expr _ -> toTermName' expr
   S.DoWhile _ expr -> toTermName' expr