Fiz as alterações na procedure seguindo as instruções da aula mas na hora de rodar o script de inclusão de um cliente que já esteja cadastrado, o banco não retorna erro nenhum, nem o erro original e nem o erro configurado na exception, retorna apenas 'Procedimento PL/SQL concluído com sucesso.'

Podem dar uma olhada se errei algo no codigo dessa procedure?

create or replace PROCEDURE incluir_cliente
(
p_ID CLIENTE.ID%type,
p_RAZAO CLIENTE.RAZAO_SOCIAL%type,
p_CNPJ CLIENTE.CNPJ%type,
p_SEGMERCADO CLIENTE.SEGMERCADO_ID%type,
p_FATURAMENTO CLIENTE.FATURAMENTO_PREVISTO%type
)
IS
  v_CATEGORIA CLIENTE.CATEGORIA%type;
  v_CNPJ CLIENTE.CNPJ%type;
BEGIN

  v_CATEGORIA := categoria_cliente(p_FATURAMENTO);
  FORMATA_CNPJ(p_CNPJ, v_CNPJ);

  INSERT INTO CLIENTE
  VALUES
  (p_ID, p_RAZAO, v_CNPJ, p_SEGMERCADO, SYSDATE, p_FATURAMENTO, v_CATEGORIA);
  COMMIT;

EXCEPTION
    WHEN DUP_VAL_ON_INDEX THEN
    dbms_output.put_line('******************************************');
    dbms_output.put_line('**************  CLIENTE JÁ CADASTRADO !!!!');
    dbms_output.put_line('******************************************');

END;