diff --git a/ide/etfpcmsgparser.pas b/ide/etfpcmsgparser.pas
index eec0b29941..8ff8fe7b4a 100644
--- a/ide/etfpcmsgparser.pas
+++ b/ide/etfpcmsgparser.pas
@@ -1522,7 +1522,10 @@ begin
     MsgLine:=CreateMsgLine;
     MsgLine.MsgID:=0;
     MsgLine.SubTool:=SubToolFPCLinker;
-    MsgLine.Urgency:=mluHint;
+    if fMsgIsStdErr then
+      MsgLine.Urgency:=mluError
+    else
+      MsgLine.Urgency:=mluHint;
     MsgLine.Msg:='linker: '+p;
     inherited AddMsgLine(MsgLine);
     exit(true);
@@ -2976,6 +2979,8 @@ begin
 
   Handled:=true;
 
+  //debugln(['TIDEFPCParser.ReadLine ',IsStdErr,' ',Line]);
+
   // check for (msgid) message
   if CheckForMsgId(p) then exit;
   // check for 'filename(line,column) Error: message'