diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index 1edbfdae4f3d8dde4b55bbaf5dd6813e8131d286..7eb6ec4a149ccdba2521e331ca4141f1ddb3ad84 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.lisp
@@ -270,8 +270,6 @@
 				     :low (when n-low (ash n-low shift))
 				     :high (when n-high (ash n-high shift))))
 		(let ((s-type (continuation-type shift)))
-		  (format *trace-output* "~&n-type: ~S~%s-type: ~S~%"
-			  n-type s-type)
 		  (when (numeric-type-p s-type)
 		    (let ((s-low (numeric-type-low s-type))
 			  (s-high (numeric-type-high s-type)))