Why does this Friday 13th program fail?

[Joe Horn]

SORRY... please ignore previous posting. My ENDs were in the wrong place. This works:

Code:

EXPORT FRI13(Y)
BEGIN
LOCAL j;
L9:={};
FOR j FROM Y+.0113 TO Y+.1213 STEP .01 DO
IF DAYOFWEEK(j)==5 THEN L9:=CONCAT(L9,j) END;
END;
RETURN L9;
END;