Stored procedure não compila

Estou tentando compilar no firebird a seguinte procedure:
Estou conectado ao EMPLOYEE.FDB...!!!

CREATE PROCEDURE CLIENTESMESATUAL
AS
BEGIN
SELECT DISTINCT CUSTOMER.CUSTOMER
FROM SALES
INNER JOIN CUSTOMER ON SALES.CUST_NO = CUSTOMER.CUST_NO
WHERE
(
(EXTRACT(MONTH FROM SALES.ORDER_DATE) = EXTRACT(MONTH FROM GETDATE()))
AND
(EXTRACT(YEAR FROM SALES.ORDER_DATE) = EXTRACT(YEAR FROM GETDATE()))
)
END