diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9932fe0074..d2511614896 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-08  Kim F. Storm  <storm@cua.dk>
+
+	* printing.el (pr-get-symbol): Define during compile.
+
 2003-02-07  Vinicius Jose Latorre <vinicius@cpqd.com.br>
 
 	* printing.el: New file.
diff --git a/lisp/printing.el b/lisp/printing.el
index c53b41b84d5..eb55586591b 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -2344,13 +2344,14 @@ See `pr-ps-printer-alist'.")
        ,@body
        (kill-buffer temp))))
 
-
+(eval-and-compile
 (defun pr-get-symbol (name)
   ;; Recent versions of easy-menu downcase names before interning them.
   (and (fboundp 'easy-menu-name-match)
        (setq name (downcase name)))
   (or (intern-soft name)
       (make-symbol name)))
+)
 
 
 (defsubst pr-visible-p (key)