diff --git a/lisp/bbdb-print.el b/lisp/bbdb-print.el
index f2efef1..dc72e3d 100644
--- a/lisp/bbdb-print.el
+++ b/lisp/bbdb-print.el
@@ -437,7 +437,8 @@ The return value is the new CURRENT-LETTER."
         (xfields (bbdb-record-xfields record))
         (bbdb-address-format-list bbdb-print-address-format-list))
 
-    (when (eval bbdb-print-require)
+    (when (funcall `(lambda (first-letter name organization mail phone address xfields) ,bbdb-print-require)
+		   first-letter name organization mail phone address xfields)
       ;; Insert section header, if neccessary.
       (if (or (eq current-letter t)
               (not (string-equal first-letter current-letter)))