From 8e62ea4965d2a375fbe212b6501d76da0edfe478 Mon Sep 17 00:00:00 2001
From: Hinko Kocevar <hinko.kocevar@ess.eu>
Date: Thu, 15 Aug 2024 12:36:34 +0200
Subject: [PATCH] handle deletion of the non-existant record with field

---
 modules/database/src/ioc/dbStatic/dbLexRoutines.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/database/src/ioc/dbStatic/dbLexRoutines.c b/modules/database/src/ioc/dbStatic/dbLexRoutines.c
index 4336e6793..1b60095fb 100644
--- a/modules/database/src/ioc/dbStatic/dbLexRoutines.c
+++ b/modules/database/src/ioc/dbStatic/dbLexRoutines.c
@@ -1123,14 +1123,14 @@ static void dbRecordHead(char *recordType, char *name, int visible)
         status = dbFindRecord(pdbentry, name);
         if (status == 0) {
             dbDeleteRecord(pdbentry);
-            popFirstTemp();
-            dbFreeEntry(pdbentry);
-            duplicate = TRUE;
         } else {
             fprintf(stderr, ERL_WARNING ": Unable to delete record \"%s\".  Not found.\n"
                     "  at file %s line %d\n",
                     name, pinputFileNow->filename, pinputFileNow->line_num);
         }
+        popFirstTemp();
+        dbFreeEntry(pdbentry);
+        duplicate = TRUE;
         return;
     }
     status = dbFindRecordType(pdbentry, recordType);