diff --git a/compiler/main.lisp b/compiler/main.lisp
index a5d619dd304a9580ad259ffc21de679cf3d1ae68..3a808eba5970da1cda40b86ca2e749aca65f3212 100644
--- a/compiler/main.lisp
+++ b/compiler/main.lisp
@@ -897,10 +897,12 @@
 	  (case (car form)
 	    ((make-package in-package shadow shadowing-import export
 			   unexport use-package unuse-package import)
+	     (typecase object
+	       (fasl-file
+		(compile-top-level-lambdas () t object)))
 	     (eval form)
 	     (etypecase object
 	       (fasl-file
-		(compile-top-level-lambdas () t object)
 		(fasl-dump-cold-load-form form object))
 	       ((or null core-object)
 		(convert-and-maybe-compile form path object))))