Forgot to remove a paren from my quick edit on the command line there.

svn: r13190

collects/scheme/private/contract.ss

@@ -93,7 +93,7 @@ improve method arity mismatch contract violation error messages?
      (syntax/loc define-stx
        (with-contract #:type definition name
          ([name contract-expr])
-         (define name expr))))]
+         (define name expr)))]
     [(_ name contract-expr expr0 expr ...)
      (identifier? #'name)
      (raise-syntax-error 'define/contract