diff --git a/src/new-cmp/cmputil.lsp b/src/new-cmp/cmputil.lsp
index cc647a8d7..22ee7b48d 100644
--- a/src/new-cmp/cmputil.lsp
+++ b/src/new-cmp/cmputil.lsp
@@ -160,7 +160,6 @@
     (apply #'format t args)))
 
 (defun cmperr (string &rest args)
-  (error)
   (let ((c (make-condition 'compiler-error
 			   :format-control string
 			   :format-arguments args)))