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))