Index: tools/sxcat.adb ================================================================== --- tools/sxcat.adb +++ tools/sxcat.adb @@ -383,10 +383,11 @@ exception when Constraint_Error => Ada.Text_IO.Put_Line (Ada.Text_IO.Current_Error, "Invalid newline encoding """ & Argument & '"'); + Handler.Action := Options.Error; end; when Options.No_Quoted => Param.Quoted := SE.Printers.Pretty.No_Quoted;