rotate isn't working correctly on image-data files

[dyoo]

The program:

(rotate 45 (local
  [(define p 
     (bitmap/url 
      (string-append 
       "http://hashcollision.org/"
       "img/hashegg.jpg")))
   (define p2
     (color-list->bitmap
      (reverse (image->color-list p))
      (image-width p)
      (image-height p)))]
  p2))

is not drawing with the correct rotation. Yikes.

[dyoo]

fixed by f9cf21ec6eb20e456666eeea08e9b14916742c98