diff --git a/lisp/enriched.el b/lisp/enriched.el
index 3249d1ded6e..8a4d32501f2 100644
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -558,7 +558,7 @@ Commands:
 (define-key enriched-mode-map "\M-j" 'enriched-justification-menu-map)
 
 ;;; These extend the "Face" menu.
-(let ((menu (car (where-is-internal facemenu-menu))))
+(let ((menu (and window-system (car (where-is-internal facemenu-menu)))))
   (if (null menu)
       nil
     (define-key enriched-mode-map