--- a/ParseError.st	Wed Feb 05 17:25:35 2020 +0100
+++ b/ParseError.st	Thu Feb 06 13:48:35 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -64,7 +66,10 @@
     ].
     s := s , (errorMessage ? '').
     lineNumber notNil ifTrue:[
-        s := s , ' [Line ' , lineNumber asString , ']'
+        "/ avoid redundant information (in case the line number is already in the description)
+        (s includesString:'[Line:') ifFalse:[
+            s := s , ' [Line ' , lineNumber asString , ']'
+        ].
     ].
     ^ s
 !