Jason, I think it is time for a new subrelease. I'm getting lost with
so many patches (and re-patches) being posted here.

[]s
Cantu (Membro do TeamFB - FireBase)
http://www.warmboot.com.br
FireBase - http://www.FireBase.com.br

JW> Oops, I left off some of the fix.

JW> Here it is in completion:

JW> if WantIdent then
JW> begin
JW> while ( EndPos < Length( AStr )) and ( AStr[EndPos] <= ' ' ) do
JW> Inc( EndPos );
JW> if ( EndPos < Length( AStr )) then
JW> begin
JW> if ( AStr[EndPos] = '(' ) then
JW> begin
JW> tmpPos := getLitsRoundSafePos( ')', AStr, EndPos + 2 );
JW> if tmpPos > 0 then
JW> begin
JW> EndPos := tmpPos + 1;
JW> Result := true;
JW> end;
JW> end;
JW> end;
JW> end
JW> ...

JW> Jason Wharton