Failure compiling

[fare]

As a reduction of my failure to compile gerbil-persist/kvs-leveldb.ss's method {begin-transaction KvsLeveldb} here is a minimal file that compiles and works well with v0.18.1 but fails with master:

(defstruct Foo (a b))
(defmethod {frob Foo}
  (lambda (self)
    (Foo-b self)
    (def x (Foo-a self))
    0))

[vyzo]

I think I found the bug:

  (%#letrec-values*          collect-body-let-values%)

this should be %#letrec*-values.