X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1d8cc67a3f4ded443f5efc673a616883cbae9c50..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index a3e9b65..51bd1a3 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -258,7 +258,7 @@
   (let* ((message (sod-method-message direct-method))
 	 (class (sod-method-class direct-method))
 	 (function (sod-method-function-name direct-method))
-	 (arguments (cons (format nil "&sod__obj.~A.~A"
+	 (arguments (cons (format nil "&sod__obj->~A.~A"
 				  (sod-class-nickname
 				   (sod-class-chain-head class))
 				  (sod-class-nickname class))