1 files changed, 1 insertions, 0 deletions

diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el
index 3d0dd2ab3bd..170070e41a0 100644
--- a/lisp/calc/calc-vec.el
+++ b/lisp/calc/calc-vec.el
@@ -1338,6 +1338,7 @@
   (if w (setq a (math-clip a w)))
   (if (math-messy-integerp a) (setq a (math-trunc a)))
   (let* ((calc-number-radix 2)
+         (calc-twos-complement-mode nil)
          (neg (math-negp a))
          (aa (if neg (math-sub -1 a) a))
          (str (if (eq aa 0)