Corrected signature of scene+line to match examples and actual behavior

(sixth argument can be a pen or color, not just a color).
(cherry picked from commit d510f6aecc)

collects/teachpack/2htdp/scribblings/image.scrbl

@@ -1016,7 +1016,7 @@ a black outline.
 @defproc[(scene+line [image image?]
                      [x1 real?] [y1 real?]
                      [x2 real?] [y2 real?]
-                     [color image-color?])
+                     [pen-or-color (or/c pen? image-color?)])
          image?]{
 
   Adds a line to the image @racket[scene], starting from the point (@racket[x1],@racket[y1])