Comment 2 for bug 194259

Fixed in rev 1405.

> (let ()
    (define-record-type my-thing (fields x))
    (define t0 (make-my-thing 123))
    (let-values ([(bvop bvop-getter) (open-bytevector-output-port)])
      (fasl-write t0 bvop)
      (let ([bv (bvop-getter)])
        (for-each
          (lambda (n) (printf "~x~x" (div n 16) (mod n 16)))
          (bytevector->u8-list bv))
        (newline)
        (let ([obj (fasl-read (open-bytevector-input-port bv))])
          (list t0 obj (and (my-thing? obj) (my-thing-x obj)))))))
2340494B30317B01000000574D73080000006D792D7468696E67464773020000006730731000000046246A392F35242F4C5877324A47395A46464904000000464D73010000007849EC010000
(#[my-thing 123] #[my-thing 123] 123)