diff --git a/src/clos/fixup.lsp b/src/clos/fixup.lsp
index 3a4bc1be3..7e2e42dce 100644
--- a/src/clos/fixup.lsp
+++ b/src/clos/fixup.lsp
@@ -33,13 +33,13 @@
 	  (loop for x in direct-slots
 		collect (if (consp x)
 			    (apply #'make-instance 'standard-direct-slot-definition
-				   (slot-definition-to-list x))
+				   (slot-definition-to-plist x))
 			    x)))
 	 (new-effective-slots
 	  (loop for x in effective-slots
 		collect (if (consp x)
 			    (apply #'make-instance 'standard-effective-slot-definition
-				   (slot-definition-to-list x))
+				   (slot-definition-to-plist x))
 			    x))))
     (map-into direct-slots #'identity new-direct-slots)
     (map-into effective-slots #'identity new-effective-slots)
diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index 2a36df10e..3adc5a1e1 100644
--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -319,7 +319,7 @@ because it contains a reference to the undefined class~%  ~A"
 				  :test-not #'eq))
 	      output)))))
 
-(defun slot-definition-to-list (slotd)
+(defun slot-definition-to-plist (slotd)
   (list :name (slot-definition-name slotd)
 	:initform (slot-definition-initform slotd)
 	:initfunction (slot-definition-initfunction slotd)
@@ -340,7 +340,7 @@ because it contains a reference to the undefined class~%  ~A"
   (flet ((direct-to-effective (old-slot)
 	   (if (consp old-slot)
 	       (copy-list old-slot)
-	       (let ((initargs (slot-definition-to-list old-slot)))
+	       (let ((initargs (slot-definition-to-plist old-slot)))
 		 (apply #'make-instance
 			(apply #'effective-slot-definition-class class initargs)
 			initargs))))