diff --git a/collects/ffi/unsafe/objc.rkt b/collects/ffi/unsafe/objc.rkt index d89050d133..3a709a3a19 100644 --- a/collects/ffi/unsafe/objc.rkt +++ b/collects/ffi/unsafe/objc.rkt @@ -664,7 +664,7 @@ [(set! _ val) (syntax/loc stx (set-ivar! self sym val))] [(_ arg ...) - (quasisyntax/loc stx (#,(quasisyntax/loc #'sym #'(get-ivar self sym)) + (quasisyntax/loc stx (#,(quasisyntax/loc #'sym (get-ivar self sym)) arg ...))] [_ (quasisyntax/loc #'sym (get-ivar self sym))])))))