diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp
index 318af2421..570369b45 100644
--- a/src/clos/boot.lsp
+++ b/src/clos/boot.lsp
@@ -12,7 +12,7 @@
 ;;; ----------------------------------------------------------------------
 ;;; BOOT
 
-(defun boot ()
+(progn
   (let* ((class (find-class 'class))
 	 (built-in-class (find-class 'built-in-class)))
 
@@ -137,6 +137,4 @@
       (error 'slot-unbound :instance object :name slot-name))
     ))
 
-(boot)
-
 ;;; ----------------------------------------------------------------------