Fix "too many arguments to format" problem -- clearly a rewrite to

Fix "too many arguments to format" problem -- clearly a rewrite to
FORMAT from PRINC which didn't quite get edited correctly

darcs-hash:20030806094824-ed5a3-609426d89653e6da5eee2f68b030f28a01dc3be8.gz

image.lisp

@@ -2593,7 +2593,7 @@
 	      (index-incf count)
 	      (unless (index= count last)
 		(write-char #\, fstream))))
-	  (format fstream "};~%" fstream))))))
+	  (format fstream "};~%"))))))
 
 (defun bitmap-image (&optional plist &rest patterns)
   ;; Create an image containg pattern