diff --git a/collects/swindle/tiny-clos.ss b/collects/swindle/tiny-clos.ss
index f23e1ef5d8..075405512d 100644
--- a/collects/swindle/tiny-clos.ss
+++ b/collects/swindle/tiny-clos.ss
@@ -507,7 +507,7 @@
               [supers (if proc? (cons <primitive-procedure> supers) supers)]
               [this (parameterize ([*default-object-class* #f])
                       (make (if proc? <procedure-class> <primitive-class>)
-                            :name name :direct-supers (list super)))])
+                            :name name :direct-supers supers))])
          (hash-table-put! struct-to-class-table stype this)
          this)))))