diff --git a/ide/frames/msgwnd_options.lfm b/ide/frames/msgwnd_options.lfm
index 05f8bce251..21816ca2c1 100644
--- a/ide/frames/msgwnd_options.lfm
+++ b/ide/frames/msgwnd_options.lfm
@@ -149,7 +149,7 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
     Height = 174
     Top = 26
     Width = 495
-    PageIndex = 1
+    PageIndex = 0
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 5
     TabStop = True
diff --git a/ide/frames/msgwnd_options.pas b/ide/frames/msgwnd_options.pas
index 3a7709dd0a..9e162cf197 100644
--- a/ide/frames/msgwnd_options.pas
+++ b/ide/frames/msgwnd_options.pas
@@ -177,7 +177,7 @@ procedure TMsgWndOptionsFrame.MsgColorListBoxSelectionChange(Sender: TObject; Us
 begin
   if not (fReady and User) then
     Exit;
-  MsgColorBox.Selected := MWColorListBox.Selected;
+  MsgColorBox.Selected := MsgColorListBox.Selected;
 end;
 
 procedure TMsgWndOptionsFrame.MWColorListBoxSelectionChange(Sender: TObject;