diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 7c10d60..6a941ab 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -622,8 +622,9 @@ list-colors-print
 	(setq color (list color)))
       (let* ((opoint (point))
 	     (color-values (color-values (car color)))
-	     (light-p (>= (apply 'max color-values)
-			  (* (car (color-values "white")) .5))))
+	     (light-p (and color-values
+                           (>= (apply 'max color-values)
+			       (* (car (color-values "white")) .5)))))
 	(insert (car color))
 	(indent-to 22)
 	(put-text-property opoint (point) 'face `(:background ,(car color)))