error with bbdb-check-name

[Peter Münster]

Hi,

Since commit e0eff7e1ee5003f7c557a83d655a7fc0b6b45fcc I get this error
when invoking bbdb:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (invalid-function (fun (name) (let* ((tmp 
(bbdb-gethash name '(fl-name lf-name aka))) (records (if record (remq record 
tmp) tmp))) (if records (let ((msg (format "Name `%s' is already in BBDB: %s" 
name ...))) (if (not warn) (error msg) (message msg) (sit-for 1)))))))
  (fun (name) (let* ((tmp (bbdb-gethash name '(fl-name lf-name aka))) (records 
(if record (remq record tmp) tmp))) (if records (let ((msg (format "Name `%s' 
is already in BBDB: %s" name (mapconcat ... records ", ")))) (if (not warn) 
(error msg) (message msg) (sit-for 1))))))()
  bbdb-check-name(("Test" . "Aaaa") ["Test" "Aaaa" nil nil nil nil nil 
("aaa@aaa.com") nil "bc5412dd-c99e-4fc7-b9ca-203d2ceef248" "2020-08-19 13:47:50 
+0000" "2020-08-19 13:47:50 +0000" [nil nil nil nil nil #<marker at 64 in 
bbdb>]] t)
  bbdb-register-record(["Test" "Aaaa" nil nil nil nil nil ("aaa@aaa.com") nil 
"bc5412dd-c99e-4fc7-b9ca-203d2ceef248" "2020-08-19 13:47:50 +0000" "2020-08-19 
13:47:50 +0000" [nil nil nil nil nil #<marker at 64 in bbdb>]] t)
  bbdb-parse-records()
  bbdb-buffer()
  bbdb("Aaaa" multi-line)
  funcall-interactively(bbdb "Aaaa" multi-line)
  call-interactively(bbdb record nil)
  command-execute(bbdb record)
  execute-extended-command(nil "bbdb" nil)
  funcall-interactively(execute-extended-command nil "bbdb" nil)
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)
--8<---------------cut here---------------end--------------->8---

How could I solve this issue please?

TIA for any hints,
-- 
           Peter