diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index f32c0705c..1edc697a0 100644
--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -114,9 +114,9 @@
   ;; arguments, but which has a value associated with :DEFAULT-INITARGS,
   ;; we compute the value and add it to the list of initargs.
   (dolist (scan (class-default-initargs class))
-    (let ((initarg (first scan))
-	  (value (third scan))
-	  (supplied-value (si::search-keyword initargs initarg)))
+    (let* ((initarg (first scan))
+	   (value (third scan))
+	   (supplied-value (si::search-keyword initargs initarg)))
       (when (or (eq supplied-value '+initform-unsupplied+)
 		(eq supplied-value 'si::failed))
 	(when (eq supplied-value '+initform-unsupplied+)