stream-equal? bug