by 'lagprogramming'. compiler/scanner.pas has function `SetCompileModeSwitch(s:string; changeInit: boolean):boolean;`. Within the code of the function `"s:=copy(s,1,length(s)-1);"` can be encountered twice. The attached patch replaces it with `"setlength(s,length(s)-1);"`. [patch.diff](/uploads/3adc491e8f05225c5d913c8d6c404c51/patch.diff)