diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index a12f40fffc77cdaa68a30466aefe97904142d394..09d40f12f3a290a91691d4648222c1a6d42d555b 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -103,7 +103,7 @@
 	    (when *check-consistency*
 	      (maybe-mumble "[Check]~%")
 	      (check-ir1-consistency *all-components*))))
-	  (ir1-finalize)
+	  (maphash #'check-free-function *free-functions*)
 	  (car lambdas))))))