diff --git a/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt b/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt index af99aafc23..d1bab3a9ad 100644 --- a/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt +++ b/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt @@ -162,8 +162,9 @@ (let ([t (read-byte p)]) ; transparent color (read-byte p) ; 0-sized block (loop parsed-blocks t))] - [(= ext #xFE) - ;; comment block + [(or (= ext #xFE) + (= ext #xFF)) + ;; comment block or app data (let loop () (let ([size (read-byte p)]) (unless (zero? size)