diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index 7027f3b768be781666a023e1d9b552b90b322ac5..828b11f2bdc10d6c8d162a26280de54f1e1d63b0 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.lisp
@@ -478,7 +478,6 @@
 (deftransform %ldb ((size pos int) (fixnum fixnum integer))
   (let ((size-len (max-value size)))
     (unless (<= size-len (integer-length most-positive-fixnum))
-      (format *trace-output* "~&max-size=~D~%" size-len)
       (give-up "result might be up to ~D bits, can't open code %ldb." size-len))
     (if (zerop size-len)
 	0