1 files changed, 1 insertions, 1 deletions

diff --git a/etc/NEWS.19 b/etc/NEWS.19
index efe0f0e7f7a..1f84e87cefc 100644
--- a/etc/NEWS.19
+++ b/etc/NEWS.19
@@ -4341,7 +4341,7 @@ turn the character that follows into a hyper character:
 (defun hyperify (prompt)
   (let ((e (read-event)))
     (vector (if (numberp e)
-                (logior (lsh 1 20) e)
+                (logior (ash 1 20) e)
               (if (memq 'hyper (event-modifiers e))
                   e
                 (add-event-modifier "H-" e))))))