extracting bibtex reference key in an elisp program

Hi, I am trying something like

(setq new-label (bibtex-key-in-head))

when the point is inside a bibtex entry, in the hope of extracting the bibtex reference key, but this just returns nil. Any advice would be appreciated!

Best, E