(let ()
  (import (only chicken.syntax begin-for-syntax))
  (begin-for-syntax
   (import (only chicken.platform chicken-version))
   (when (equal? "6.0.0" (chicken-version))
     (warning "\n\nYou seem to be running CHICKEN 6.0.0. This release has a bug in read-string, and some of zlib tests to fail. Please see if you can update your CHICKEN installation, or use read-bytevector instead.\n\n"))))