diff --git a/src/cmp/cmpflet.lsp b/src/cmp/cmpflet.lsp
index d191c660e..e0bad46ea 100644
--- a/src/cmp/cmpflet.lsp
+++ b/src/cmp/cmpflet.lsp
@@ -227,7 +227,6 @@
       body))
 
 (defun c1locally (args)
-  (print "FOO")
   (multiple-value-bind (body ss ts is other-decl)
       (c1body args t)
     (c1add-globals ss)