diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss
index 59c3f988d2..ce2618a2ab 100644
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@@ -2680,7 +2680,7 @@
                             
                             (class-orig-cls cls)
                             #f #f ; serializer is never set
-                            (class-no-super-init? cls))]
+                            #f)]
              [obj-name (if name
                            (string->symbol (format "object:~a" name))
                            'object)])