diff --git a/Graphics/GD.hsc b/Graphics/GD.hsc
--- a/Graphics/GD.hsc
+++ b/Graphics/GD.hsc
@@ -37,6 +37,7 @@
                     drawArc,
                     antiAliased,
                     setPixel,
+                    colorAllocate,
                     -- * Text
                     useFontConfig,
                     drawString, measureString,
@@ -189,6 +190,9 @@
 foreign import ccall "gd.h gdImageSetPixel" gdImageSetPixel
     :: Ptr GDImage -> CInt -> CInt -> CInt -> IO ()
 
+foreign import ccall "gd.h gdImageColorAllocate" gdImageColorAllocate
+    :: Ptr GDImage -> CInt -> CInt -> CInt -> CInt -> IO CInt
+
 -- Text functions
 
 foreign import ccall "gd.h gdFTUseFontConfig" gdFTUseFontConfig
@@ -545,6 +549,11 @@
 setPixel (x,y) c i =
     withImagePtr i $ \p ->
         gdImageSetPixel p (int x) (int y) c
+
+colorAllocate :: CInt -> CInt -> CInt -> CInt -> Image -> IO Color
+colorAllocate r g b a i =
+    withImagePtr i $ \p ->
+        gdImageColorAllocate p r g b a
 
 --
 -- * Text
diff --git a/gd.cabal b/gd.cabal
--- a/gd.cabal
+++ b/gd.cabal
@@ -1,7 +1,7 @@
 Name: gd
 Category: Graphics
 License-File: LICENSE
-Version: 3000.7.1
+Version: 3000.7.2
 Cabal-version: >= 1.2
 Build-type: Simple
 Copyright: Bjorn Bringert