diff --git a/compiler/entry.lisp b/compiler/entry.lisp
index 92204f1f378bf2bce6e22d0f0e9f7614273c103b..fad52a8a7a264810d707ea60175224bfa4707d61 100644
--- a/compiler/entry.lisp
+++ b/compiler/entry.lisp
@@ -70,4 +70,4 @@
 	     (or name
 		 (component-name (block-component block))))
      :arguments (make-arg-names internal-fun)
-     :type (type-specifier (definition-type internal-fun)))))
+     :type (type-specifier (leaf-type internal-fun)))))