diff --git a/src/backends/ocarina-backends-messages.adb b/src/backends/ocarina-backends-messages.adb
index a408166f6b0d45d0bec8c2b5af7ab31a07e54ab6..866049e9b1ec32e033de68250b50f59ce07cb4d0 100644
--- a/src/backends/ocarina-backends-messages.adb
+++ b/src/backends/ocarina-backends-messages.adb
@@ -97,10 +97,12 @@ package body Ocarina.Backends.Messages is
       Fatal   : Boolean;
       Warning : Boolean := False)
    is
+      Current_FD : constant File_Descriptor := Current_Output;
    begin
+      Set_Standard_Error;
       Write_Str (Image (Loc) & ' ');
-
       Display_Error_Message (Message, Fatal, Warning);
+      Set_Output (Current_FD);
 
       if Fatal then
          OS_Exit (2);