(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))