Why does this Friday 13th program fail?

[Didier Lachieze]

In one line:

Code:

EXPORT FRI13(Y)
BEGIN
 DIFFERENCE(MAKELIST((DAYOFWEEK(J)==5)*J,J,Y+.0113,Y+.13,.01),0);
END;