[lazarus] Win32 not compile

[Cristiano Magro]

Hi
Source from CVS return error when compile
>Compiling filectrl.pp
>filectrl.inc(346,30) Hint: Parameter AFILENAME not used
>filectrl.inc(358,31) Hint: Parameter AFILENAME not used
>filectrl.inc(481,3) Hint: Parameter EXCEPTIONONERROR not used
>filectrl.inc(541,33) Hint: Parameter AFILENAME not used
>filectrl.inc(656,40) Error: Identifier not found GETENV
>filectrl.pp(178) Fatal: There were 1 errors compiling module,
stopping
>make[1]: *** [allunits.ppw] Error 1
>make[1]: Leaving directory `C:/pp/source/lazarus/lcl'
>make: *** [lcl] Error 2
the error is in this line from lcl\include\filectrl.inc
   
Result:=SearchFileInPath(Result,'',GetEnv('PATH'),':',
                            
[sffDontSearchInBasePath]);
I think Result must be a const
If I remove this lines the compiling is Ok
Cristiano