1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index fdc209991aa..8bf4c3e1666 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -229,7 +229,7 @@ which is big-endian."
   "Maximum number of bytes for a fixnum.")
 
 (defconst erc-most-positive-int-msb
-  (lsh most-positive-fixnum (- 0 (* 8 (1- erc-most-positive-int-bytes))))
+  (ash most-positive-fixnum (- 0 (* 8 (1- erc-most-positive-int-bytes))))
   "Content of the most significant byte of most-positive-fixnum.")
 
 (defun erc-unpack-int (str)
@@ -251,7 +251,7 @@ which is big-endian."
     (let ((num 0)
           (count 0))
       (while (< count len)
-        (setq num (+ num (lsh (aref str (- len count 1)) (* 8 count))))
+        (setq num (+ num (ash (aref str (- len count 1)) (* 8 count))))
         (setq count (1+ count)))
       num)))