Procedimiento Almacenado UPDATE no se ejecuta

[Rockin]

Buena a todos, escribo porque estoy desesperado, estoy fallando en algo pero no lo veo y he mirado en todos lados ya. Tengo varios procedimientos almacenados en mi BD Firebird los cuales me devuelven un conjunto de datos y funcionan perfectamente, el problema es cuando he creado el siguiente procedimiento para actualizar un registro:

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE LOGIN_SUTIL(
  REF INTEGER)
AS
begin
UPDATE  SESION_POPUP
SET modificar = 0
where referencia =:REF;
END^

SET TERM ; ^

El procedimiento se ejecuta pero no modifica el registros, si alguien me puede echar una mano o ver donde está el fallo se lo agradecería.

Utilizo Firebird 2.1

Saludos y gracias de antemano.