diff --git a/src/clos/method.lsp b/src/clos/method.lsp
index f3c5a3f19..aca955b84 100644
--- a/src/clos/method.lsp
+++ b/src/clos/method.lsp
@@ -82,7 +82,7 @@
 	    (nconc (loop for name in required-parameters
 		      for type in specializers
 		      when (and (not (eq type t)) (symbolp type))
-		      nconc `((type ,name ,type)
+		      nconc `((type ,type ,name)
 			      (si::no-check-type ,name)))
 		   (cdar declarations)))
 	   (method-lambda