diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp
index 52f84f135..75b1f47ae 100644
--- a/src/clos/boot.lsp
+++ b/src/clos/boot.lsp
@@ -147,6 +147,13 @@
 	   collect (list name :metaclass 'built-in-class
 			 :index index
 			 :direct-superclasses (or rest '(t))))
+      (funcallable-standard-object
+       :direct-superclasses (standard-object function))
+      (generic-function
+       :metaclass funcallable-standard-class
+       :direct-superclasses (metaobject funcallable-standard-object))
+      (method
+       :direct-superclasses (metaobject))
       )))
 
 ;;; ----------------------------------------------------------------------