diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl index b3f65ed02f..ea856f62eb 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl @@ -281,6 +281,8 @@ (class-keyword-test #'super-instantiate) (class-keyword-test #'inspect) +(test #t class? (class object% (define-values () (values)))) + ;; ------------------------------------------------------------ ;; Test basic functionality diff --git a/racket/collects/racket/private/class-internal.rkt b/racket/collects/racket/private/class-internal.rkt index 6324870b29..0e1ab0b7a1 100644 --- a/racket/collects/racket/private/class-internal.rkt +++ b/racket/collects/racket/private/class-internal.rkt @@ -1207,7 +1207,8 @@ (syntax/loc e (let-values ([(temp ...) expr]) (set! id (field-initialization-value temp)) - ...))))]) + ... + (void)))))]) (syntax-track-origin assignment e #'d-v))] [(_init orig idp ...) (and (identifier? (syntax _init))