[racket] compilation error in dherman/parameter

Hi,

I stumbled upon a compilation in parameter.plt:

.
../../../../.racket/planet/300/5.1.3/cache/dherman/parameter.plt/1/3/main.ss:26:17:
compile: unbound identifier in module in: flat-get

The broken code is following:
;; I had to copy this from collects/scheme/private/contract-guts.ss
;; because it isn't provided from scheme/contract.
(define (flat-proj ctc)
  (let ([pred? ((flat-get ctc) ctc)])
    (λ (pos neg src-info orig-str)
      (λ (val)
        (if (pred? val)
            val
            (raise-contract-error
             val
             src-info
             pos
             orig-str
             "expected <~a>, given: ~e"
             ((name-get ctc) ctc)
             val))))))


I raised a ticket on this but so far no response. Anybody had the same
problem and knows how to fix it?


Thanks,
Razvan
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20111224/afa56404/attachment.html>