inits are weird #3

gistfile1.rkt

(make-object (class (class object% 
                      (super-new)
                      (init a b c))
               (super-new [a 0] [b 0] [c 0])
               (init [d 0]))
  1 2)

;; => ; instantiate: unused initialization arguments
;;      unused arguments:
;;        [a 2]
;;      instantiated class name: readline-input::4263 [,bt for context]

(require mzlib/class100)

(make-object (class100 (class100 object% (a b c)
                         (sequence (super-init)))
               ([d 0])
               (sequence (super-init 0 0 0)))
  1 2)

;; => instantiate: too many initialization arguments: 1 2 for class: unsaved-editor2934:5:13