diff --git a/ide/main.pp b/ide/main.pp
index c1472bda8f..ebfe809b14 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -9216,8 +9216,8 @@ begin
     DoCheckFilesOnDisk;
 
     MessagesView.EndBlock;
-    MessagesView.EnsureVisible;
   end;
+  MessagesView.EnsureVisible;
   Result:=mrOk;
 end;