diff --git a/ide/fpswitch.pas b/ide/fpswitch.pas
index 7fc3c34790..126ecaa961 100644
--- a/ide/fpswitch.pas
+++ b/ide/fpswitch.pas
@@ -896,7 +896,7 @@ function TSwitches.ReadItemsCfg(const s:string):boolean;
     { empty items are not equivalent to others !! }
     { but -dGDB didn't work because of this PM }
     CheckItem:=((P^.Param='') and ((S='') or (P^.typ in [ot_Boolean,ot_String]))) or
-               ((Length(P^.Param)>0) and (P^.Param=S) and
+               ((Length(P^.Param)>0) and (upcase(P^.Param)=upcase(S)) and
                 not (P^.typ in [ot_Boolean,ot_String])) or
                ((Length(P^.Param)>0) and (P^.typ<>ot_Select) and
                 (P^.Param=Copy(s,1,length(P^.Param))));