diff --git a/src/cmp/cmpflet.lsp b/src/cmp/cmpflet.lsp
index c6dbf9bb6..4b54c0d85 100644
--- a/src/cmp/cmpflet.lsp
+++ b/src/cmp/cmpflet.lsp
@@ -141,8 +141,8 @@
       ;; All external, non-global variables become of type closure
       (when (eq new-type 'CLOSURE)
 	(when (fun-global fun)
-	  (cmperr "Function ~A is global but is closed over some variables.~%~{~A ~}"
-                  (fun-name fun) (mapcar #'var-name (fun-referred-vars fun))))
+	  (cmpnote "Function ~A is global but is closed over some variables.~%~{~A ~}"
+                   (fun-name fun) (mapcar #'var-name (fun-referred-vars fun))))
 	(dolist (var (fun-referred-local-vars fun))
 	  (setf (var-ref-clb var) nil
 		(var-ref-ccb var) t
diff --git a/src/cmp/cmplam.lsp b/src/cmp/cmplam.lsp
index 904ffd374..4aecf012c 100644
--- a/src/cmp/cmplam.lsp
+++ b/src/cmp/cmplam.lsp
@@ -138,10 +138,10 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
 	  (setf finish nil))))
     (compute-fun-closure-type fun)
     (when global
-      (when (fun-closure fun)
-	(cmperr "Function ~A is global but is closed over some variables.~%~{~A ~}"
-                (fun-name fun) (mapcar #'var-name (fun-referred-vars fun))))
-      (new-defun fun (fun-no-entry fun))))
+      (if (fun-closure fun)
+          (cmpnote "Function ~A is global but is closed over some variables.~%~{~A ~}"
+                   (fun-name fun) (mapcar #'var-name (fun-referred-vars fun)))
+          (new-defun fun (fun-no-entry fun)))))
   fun)
 
 (defun cmp-process-lambda-list (list)
diff --git a/src/new-cmp/cmpflet.lsp b/src/new-cmp/cmpflet.lsp
index 580fd3340..db30c3c34 100644
--- a/src/new-cmp/cmpflet.lsp
+++ b/src/new-cmp/cmpflet.lsp
@@ -174,8 +174,8 @@
       ;; All external, non-global variables become of type closure
       (when (eq new-type 'CLOSURE)
 	(when (fun-global fun)
-	  (cmperr "Function ~A is global but is closed over some variables.~%~{~A ~}"
-                  (fun-name fun) (mapcar #'var-name (fun-referred-vars fun))))
+	  (cmpnote "Function ~A is global but is closed over some variables.~%~{~A ~}"
+                   (fun-name fun) (mapcar #'var-name (fun-referred-vars fun))))
 	(dolist (var (fun-referred-local-vars fun))
 	  (setf (var-ref-clb var) nil
 		(var-ref-ccb var) t
diff --git a/src/new-cmp/cmplam.lsp b/src/new-cmp/cmplam.lsp
index 7730d4485..6799e55e3 100644
--- a/src/new-cmp/cmplam.lsp
+++ b/src/new-cmp/cmplam.lsp
@@ -141,10 +141,10 @@
 	  (setf finish nil))))
     (compute-fun-closure-type fun)
     (when (fun-global fun)
-      (when (fun-closure fun)
-	(cmperr "Function ~A is global but is closed over some variables.~%~{~A ~}"
-                (fun-name fun) (mapcar #'var-name (fun-referred-vars fun))))
-      (new-defun fun (fun-no-entry fun)))))
+      (if (fun-closure fun)
+          (cmpnote "Function ~A is global but is closed over some variables.~%~{~A ~}"
+                   (fun-name fun) (mapcar #'var-name (fun-referred-vars fun)))
+          (new-defun fun (fun-no-entry fun))))))
 
 
 (defun c1lambda-expr (fun lambda-expr CB/LB