scheme - スキームでクラスをシミュレートする

Question

クラスをシミュレートするコードを書いています：

(define (className)
  (define value 1)
  (define (obj arg1)                    ;constructor
    (define (increment)
      ((+ value 1)))
    (define (get)
      (value))
    (if (equal? arg1 "increment")
        (increment)
        (get)))
  obj)

(define a className)
(display a) ;returns #<procedure className ()>
(display (a "get")) ;trying to call get procedure

そして私は得てERROR: Wrong number of arguments to #<procedure className ()>います。コードの何が問題になっていますか?