Since we're handling initialization and the result of this wrapper is a

real (sub)class, we need this to be #f.

svn: r18544

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)])