Index: imlib2.scm
===================================================================
--- imlib2.scm	(revision 7765)
+++ imlib2.scm	(working copy)
@@ -175,7 +175,7 @@
 	    (imlib-err 'imlib:create "Could not create new image" (list width height))
 	    (begin
 	      (imlib:alpha-set! img #t)
-	      (imlib:fill-rectangle img (imlib:color/rgba 0 0 0 0) 0 0 width height)
+	      (imlib:fill-rectangle img (imlib:color/rgba 0 0 0 0) 0 0 (sub1 width) (sub1 height))
 	      (set-finalizer! img imlib:collect))))))
 
 (define (imlib:collect img)