Lists of images fail to render in check-expects when selecting BSL from drop-down

[bbbowers]

What version of Racket are you using?
8.18

What program did you run?
(require 2htdp/image)

(define I1 (rectangle 10 20 "solid" "blue")) ; area: 200
(define I2 (rectangle 20 30 "solid" "red")) ; area: 600
(define I3 (rectangle 30 40 "solid" "green")) ; area: 1200
(define I4 (circle 20 "solid" "red"))

(check-expect (list I1 I2 I3 I4) (list I4 I3 I2 I1))

What should have happened?
The first list of images shows correctly, but every other list does not

If you got an error message, please include it here.

Please include any other relevant details
This only occurs when selecting BSL from the UI. The issue resolves itself when using "determine language from source" and setting #lang htdp/bsl

video demo (more for my class than for you but) https://youtu.be/i4_OuZODeTs

[shhyou]

@mikesperber I can reproduce this for Git HEAD (Racket v8.18.0.16 and with 01eb4de03a6a23acb).

[rfindler]

This looks like what you'd get if something is not calling the snip's copy method before inserting the snip into the editor. (Not sure if that's the actual bug, but it might be worth checking for.)