X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsrctran.lisp;h=773690258fdc98a59a5fc5337c9f84010741544c;hb=43c6634142a96e1d1bab2efe1a39cd8234903c41;hp=3278e7bc2a174945e73ba5dae9031cd0a591cfb4;hpb=373df66df093e8c1771069dcc30c2ec32598af6a;p=sbcl.git

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 3278e7b..7736902 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -3160,7 +3160,7 @@
         (when (and (numberp low) (numberp high))
           (let ((width (max (integer-length high) (integer-length low))))
             (multiple-value-bind (w kind)
-                (best-modular-version width t)
+                (best-modular-version (1+ width) t)
               (when w
                 ;; FIXME: This should be (CUT-TO-WIDTH NODE KIND W T).
                 ;; [ see comment above in LOGAND optimizer ]