[firebase-br] Falha do FB ou erro de lógica do programador?

[Herminio E. Piram]

Bom dia.

Tenho um procedimento no banco que executa uma regra
parecida com esta, são passados alguns parâmetros a mais,
mas o valor do generator não bate, então montei a mesma ideia
em uma estrutura mais simples e obtive o mesmo problema.

Estou utilizando FB 2.5.2 e IBExpert 2012.02.21.

create generator gen_IdTeste

set generator gen_IDTeste to 0

create or alter procedure getGenIDTeste returns (idTeste integer) as
begin
  idTeste = gen_id(gen_IDTeste,1);

  suspend;
end

create or alter procedure procIDTeste as
declare variable vIdTeste integer;
begin
  execute procedure getGenIDTeste returning_values vIdTeste;
end;

debugar procedure procIDTeste, qdo passar pela linha "execute
procedure getGenIDTeste" utilize F7 para entrar na "subProcedure"
getGenIDTeste, verá que o valor do generator retorna 1, mas ao
retornar ao procIDTeste o valor da variável vIDTeste está 2.

A quem puder ajudar, muito obrigado.

-- 
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _ _ _

"If the doors of perception were cleansed everything
 would appear to man as it is, infinite." (William Blake)
 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _ _ _ _