diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/marked.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/marked.rkt
new file mode 100644
index 0000000000..c390d6694f
--- /dev/null
+++ b/pkgs/racket-pkgs/racket-test/tests/generic/marked.rkt
@@ -0,0 +1,17 @@
+#lang racket/base
+
+(require racket/generic)
+
+(define-generics thing
+  (process thing stuff))
+
+(define-syntax-rule (define-thing name)
+  (struct name []
+    #:methods gen:thing
+    [(define-syntax-rule (define-super method)
+       (define/generic method process))
+     (define-super super)
+     (define (process x y)
+       (super y x))]))
+
+(define-thing type)
diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt
index 10899c1369..c6bcb95a36 100644
--- a/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt
@@ -18,5 +18,6 @@
          "empty-interface.rkt"
          "top-level.rkt"
          "pr13737.rkt"
+         "marked.rkt"
          "methods.rkt")