diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index 09f4f50cd7..55a7233979 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -513,7 +513,7 @@ type
           out ListOfPCodeXYPosition: TFPList;
           SkipAbstractsInStartClass: boolean = false): boolean;
     function GetValuesOfCaseVariable(Code: TCodeBuffer; X,Y: integer;
-          List: TStrings; WithTypeDefIfScoped: boolean): boolean;
+          List: TStrings; WithTypeDefIfScoped: boolean = true): boolean;
     function GatherOverloads(Code: TCodeBuffer; X,Y: integer;
           out Graph: TDeclarationOverloadsGraph): boolean;
 
diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index ecbdd83bcd..f884040cec 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -434,7 +434,7 @@ type
                                  out ListOfPCodeXYPosition: TFPList;
                                  SkipAbstractsInStartClass: boolean = false): boolean;
     function GetValuesOfCaseVariable(const CursorPos: TCodeXYPosition;
-                                     List: TStrings; WithTypeDefIfScoped: boolean): boolean;
+                                     List: TStrings; WithTypeDefIfScoped: boolean = true): boolean;
     property Beautifier: TBeautifyCodeOptions read FBeautifier write FBeautifier;
 
     procedure CalcMemSize(Stats: TCTMemStats); override;