X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/4e561d89167ab39483f850df3ebc1f8c82dc9e7d..a898c9e295c84062379cda5cd42f113bee0138e2:/src/method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 8de19da..1cb9479 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -335,7 +335,7 @@ (defun basic-effective-method-body (codegen target method body)
 				    (funcall body target)
 				    (dolist (after (reverse after-methods))
 				      (invoke-method codegen :void
-						     after basic-tail)))))))
+						     basic-tail after)))))))
 	(invoke-delegation-chain codegen target basic-tail
 				 around-methods #'method-kernel)))))