diff --git a/example.hs b/example.hs
--- a/example.hs
+++ b/example.hs
@@ -16,11 +16,11 @@
 box :: Draw.Draw ()
 box = Draw.translate (0.0,0.2) 
         $ Draw.scale 0.3 0.3 
-        $ Draw.color (1,0,0,0) 
+        $ Draw.color (1,0,0,1) 
         $ Draw.convexPoly
             [(1,1),(1,-1),(-1,-1),(-1,1)]
 
-drawing = fmap (const "A") (Draw.color (0,0,1,0) box)
+drawing = fmap (const "A") (Draw.color (0,0,1,1) box)
           `mappend`
           fmap (const "B") (Draw.translate (-0.1,0.2) box)
 
diff --git a/graphics-drawingcombinators.cabal b/graphics-drawingcombinators.cabal
--- a/graphics-drawingcombinators.cabal
+++ b/graphics-drawingcombinators.cabal
@@ -4,7 +4,7 @@
     have to go into the deep, dark world of imperative stateful
     programming just to draw stuff.  It supports 2D only (for now),
     with support drawing geometry, images, and text.
-Version: 0.4
+Version: 0.41
 Stability: experimental
 Synopsis: A functional interface to 2D drawing in OpenGL
 License: BSD3