fix #:list-contract? argument