diff --git a/src/cmp/cmpnum.lsp b/src/cmp/cmpnum.lsp
index 1d3b2c31f..66e5e44d6 100644
--- a/src/cmp/cmpnum.lsp
+++ b/src/cmp/cmpnum.lsp
@@ -179,8 +179,6 @@
 (def-type-propagator sqrt (fname arg)
   (multiple-value-bind (output arg)
       (ensure-nonrational-type arg)
-    (print arg)
-    (print (if (type>= '(REAL 0 *) arg) output 'NUMBER))
     (values (list arg)
             (if (type>= '(REAL 0 *) arg) output 'NUMBER))))