diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org
index adf3418e..7329f2b8 100644
--- a/emacs/.emacs.d/prot-emacs.org
+++ b/emacs/.emacs.d/prot-emacs.org
@@ -14326,7 +14326,7 @@ Specific to the current window's mode line.")
     '(:eval
       (when (and (mode-line-window-selected-p)
                  (buffer-narrowed-p)
-                 (not (derived-mode-p 'Info-mode 'help-mode 'special-mode 'message-mode)))
+                 (not (memq major-mode '(Info-mode help-mode message-mode special-mode))))
         (propertize " Narrow " 'face 'prot-modeline-indicator-cyan-bg)))
   "Mode line construct to report the narrowed state of the current buffer.")
 
diff --git a/emacs/.emacs.d/prot-lisp/prot-modeline.el b/emacs/.emacs.d/prot-lisp/prot-modeline.el
index c7043622..c7d7975a 100644
--- a/emacs/.emacs.d/prot-lisp/prot-modeline.el
+++ b/emacs/.emacs.d/prot-lisp/prot-modeline.el
@@ -275,7 +275,7 @@ Specific to the current window's mode line.")
     '(:eval
       (when (and (mode-line-window-selected-p)
                  (buffer-narrowed-p)
-                 (not (derived-mode-p 'Info-mode 'help-mode 'special-mode 'message-mode)))
+                 (not (memq major-mode '(Info-mode help-mode message-mode special-mode))))
         (propertize " Narrow " 'face 'prot-modeline-indicator-cyan-bg)))
   "Mode line construct to report the narrowed state of the current buffer.")