(math-compose-expr): Let `calc-twos-complement-mode' be nil.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index 5ad798abb56..8c168244704 100644
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -377,7 +377,8 @@
                 (list 'horiz "(" (math-compose-expr (nth 1 a) 0) ")")
               (math-compose-expr (nth 1 a) 201))
             (let ((calc-language 'flat)
-                  (calc-number-radix 10))
+                  (calc-number-radix 10)
+                  (calc-twos-complement-mode nil))
               (math-compose-expr (nth 2 a) 0))))
      ((and (eq (car a) '/)
            (eq calc-language 'big))