diff --git a/compiler/entry.lisp b/compiler/entry.lisp
index f9b772acd21f5f264457b43dabfc0dbfd0fe154c..92204f1f378bf2bce6e22d0f0e9f7614273c103b 100644
--- a/compiler/entry.lisp
+++ b/compiler/entry.lisp
@@ -65,7 +65,7 @@
 	(internal-fun (functional-entry-function fun)))
     (make-entry-info
      :closure-p (not (null (environment-closure (lambda-environment fun))))
-     :offset (block-label block)
+     :offset (gen-label)
      :name (let ((name (leaf-name internal-fun)))
 	     (or name
 		 (component-name (block-component block))))