diff --git a/src/clos/builtin.lsp b/src/clos/builtin.lsp
index 752899d56..a771abecb 100644
--- a/src/clos/builtin.lsp
+++ b/src/clos/builtin.lsp
@@ -28,7 +28,7 @@
 ;;; does not work yet, since the class NULL does not exist.
 ;;;
 (setf (find-class 'built-in-class)
-      (make-instance (find-class 'class)
+      (make-instance (find-class 'standard-class)
 		     :name 'built-in-class
 		     :direct-superclasses (list (find-class 'class))
 		     :direct-slots nil))