diff --git a/pcl/construct.lisp b/pcl/construct.lisp
index 9ee73d7ecb275e19aa5a21cb208bc719199089fd..8b4c84d63424e2aebdca6dfc664a79681bcfae34 100644
--- a/pcl/construct.lisp
+++ b/pcl/construct.lisp
@@ -434,9 +434,7 @@
          (shared
            (compute-applicable-methods #'shared-initialize (list proto t)))
          (code-generators
-           (constructor-code-generators constructor))
-	 (code-generators
-	   (constructor-code-generators constructor)))
+           (constructor-code-generators constructor)))
     (flet ((call-code-generator (generator)
 	     (when (null generator)
 	       (unless (setq generator (getf code-generators 'fallback))