diff --git a/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt b/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt index b2ce8655..630878b2 100644 --- a/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt +++ b/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt @@ -10,5 +10,8 @@ (class* object% (snip-reader<%>) (define/public (read-header vers stream) (void)) (define/public (read-snip text? cvers stream) - (snipclass-bytes->image (send stream read-raw-bytes '2htdp/image))) + (define bytes (send stream read-raw-bytes '2htdp/image)) + (if text? + #"." + (snipclass-bytes->image bytes))) (super-new))))