X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e5fae432e89a003fd40067bd59f4b6aa4d740022..0c4559280eea9f0268866198be50b6f0395b4251:/src/method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 26dce5d..86fd4cd 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -453,7 +453,8 @@
 	   (varargs-prologue ()
 	     (ensure-var codegen *sod-master-ap* (c-type va-list))
 	     (emit-inst codegen
-			(make-va-start-inst *sod-master-ap* parm-n)))
+			(make-va-start-inst *sod-master-ap*
+					    (argument-name parm-n))))
 	   (varargs-epilogue ()
 	     (emit-inst codegen (make-va-end-inst *sod-master-ap*)))
 	   (finish-entry (tail)