Firebird 4 literal containing crashes server

[tonne1]

The query below crashes the server. Affected versions 4.0.1 and 4.0.2. 4.0.0 is not affected.
Vlad has already confirmed this.

select a.modul
from tbl2 b
join tbl1 a on a.modul = b.modul
-- where 'TT,T0,T2,T3,T4,T5,T6,T7,T8,T9' containing b.modul -- crashes server
where cast('TT,T0,T2,T3,T4,T5,T6,T7,T8,T9' as varchar(1000)) containing b.modul -- runs ok

test case:

CREATE TABLE tbl1
(
MODUL varchar(10)
);

CREATE TABLE tbl2
(
MODUL varchar(10)
);

insert into tbl1 values('O7');
insert into tbl1 values('DS');
insert into tbl1 values('ET');
insert into tbl1 values('T5');
insert into tbl1 values('EF');

insert into tbl2 values('DG');
insert into tbl2 values('DS');
insert into tbl2 values('EF');
insert into tbl2 values('ET');
insert into tbl2 values('O7');
insert into tbl2 values('T5');