diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index a3f115e1f..fcf4e9b28 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -1210,7 +1210,7 @@ window."
   (let ((scrlup (if additional-keys '(?\s 22) 22))
 	(scrldn (if additional-keys `(?\d 134217846) 134217846)))
     (eval
-     `(case ,key
+     `(cl-case ,key
 	;; C-n
 	(14 (if (not (pos-visible-in-window-p (point-max)))
 		(ignore-errors (scroll-up 1))