diff --git a/src/core/common_files/ocarina-output.adb b/src/core/common_files/ocarina-output.adb
index eda3cd4a08729c64ec4ce665b74f15d7b62e69b2..d683c60441fabed5e566cee551fe983524809cd0 100644
--- a/src/core/common_files/ocarina-output.adb
+++ b/src/core/common_files/ocarina-output.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---    Copyright (C) 1992-2009 Telecom ParisTech, 2010-2015 ESA & ISAE.      --
+--    Copyright (C) 1992-2009 Telecom ParisTech, 2010-2016 ESA & ISAE.      --
 --                                                                          --
 -- Ocarina  is free software; you can redistribute it and/or modify under   --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -104,7 +104,6 @@ package body Ocarina.Output is
 
    begin
       if Len /= 0 then
-
          if Len /= Write (Current_FD, Buffer'Address, Len) then
 
             --  If there are errors with standard error, just quit
@@ -198,7 +197,7 @@ package body Ocarina.Output is
 
    procedure Write_Eol (N : Natural := 1) is
    begin
-      for I in 1 .. N loop
+      for J in 1 .. N loop
          Buffer (Natural (Next_Column)) := ASCII.LF;
          Next_Column                    := Next_Column + 1;
          Flush_Buffer;