diff --git a/YKPN/ykpn.sql b/YKPN/ykpn.sql
index 406d1d12f..6e2c6016f 100644
--- a/YKPN/ykpn.sql
+++ b/YKPN/ykpn.sql
@@ -513,7 +513,8 @@ AS
             END IF;
 
              -- De email body wegschrijvinen in een kenmerk
-             mld.upsertmeldingkenmerk(9921, v_melding_key, SUBSTR(pbody,1,4000)); -- D=9921, A=9961
+             v_errormsg := 'Fout bij toevoegen kenmerk';
+             mld.upsertmeldingkenmerk(9961, v_melding_key, SUBSTR(pbody,1,4000)); -- D=9921, A=9961
              
              -- Starten we nu de workflow
              MLD.mld_nextworkflowstep (v_melding_key, -1);