define-simple-class - overloaded methods error

[Yaroslav Kavenchuk]

$ cat SimpleClassTest.scm
(module-static 'init-run)

(define-simple-class SimpleClassTest ()
  ((msgTxt code :: int text :: String) :: String allocation: 'static
   (format #f "~A: ~A\n" text code))
  ((msgTxt code :: int) :: String allocation: 'static
   (msgTxt code "Code")))

$ kawa -C SimpleClassTest.scm
(compiling SimpleClassTest.scm to SimpleClassTest)
SimpleClassTest.scm:7:4: call to 'msgTxt' has too many arguments (2; must be 1)

-- 
WBR, Yaroslav Kavenchuk.