diff --git a/Data/Array/Repa/IO/BMP.hs b/Data/Array/Repa/IO/BMP.hs
--- a/Data/Array/Repa/IO/BMP.hs
+++ b/Data/Array/Repa/IO/BMP.hs
@@ -201,7 +201,7 @@
 	= error "Data.Array.Repa.IO.BMP: lowest order dimension must be 4"
 
 	| otherwise
-	= let 	bmp	= packRGBA32ToBMP height width 
+	= let 	bmp	= packRGBA32ToBMP width height
 			$ A.toByteString arrImage
 	  in	writeBMP fileName bmp
 	
diff --git a/repa-io.cabal b/repa-io.cabal
--- a/repa-io.cabal
+++ b/repa-io.cabal
@@ -1,5 +1,5 @@
 Name:                repa-io
-Version:             2.0.0.3
+Version:             2.0.1.1
 License:             BSD3
 License-file:        LICENSE
 Author:              The DPH Team