diff --git a/src/cmp/cmpmulti.lsp b/src/cmp/cmpmulti.lsp
index 470c0858e..d7934828a 100644
--- a/src/cmp/cmpmulti.lsp
+++ b/src/cmp/cmpmulti.lsp
@@ -217,7 +217,6 @@
 (defun c2multiple-value-setq (vars form)
   (multiple-value-bind (min-values max-values)
       (c1form-values-number form)
-    (print (list (c1form-type form) min-values max-values))
     (if (= min-values max-values)
 	(do-m-v-setq-fixed min-values vars form nil)
 	(progn