diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index ebc8ab3327f..60203f581ec 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1042,7 +1042,7 @@ ones, in case fg and bg are nil."
                (shr-color-visible bg fg)))))))
 
 (defun shr-colorize-region (start end fg &optional bg)
-  (when (and (or fg bg) (>= (display-color-cells) 256))
+  (when (and (or fg bg) (>= (display-color-cells) 88))
     (let ((new-colors (shr-color-check fg bg)))
       (when new-colors
 	(when fg