diff --git a/System/GIO/Async/AsyncResult.chs b/System/GIO/Async/AsyncResult.chs
--- a/System/GIO/Async/AsyncResult.chs
+++ b/System/GIO/Async/AsyncResult.chs
@@ -47,12 +47,12 @@
 {#pointer GAsyncReadyCallback#}
 
 foreign import ccall "wrapper" mkAsyncReadyCallback :: 
-    (Ptr GObject -> Ptr AsyncResult -> Ptr () -> IO ()) -> IO GAsyncReadyCallback
+    (Ptr () -> Ptr AsyncResult -> Ptr () -> IO ()) -> IO GAsyncReadyCallback
 
 marshalAsyncReadyCallback :: AsyncReadyCallback -> IO GAsyncReadyCallback
 marshalAsyncReadyCallback asyncReadyCallback = 
     mkAsyncReadyCallback $ \ cObject cAsyncResult cCallback -> do
-      object <- (makeNewGObject mkGObject . return) cObject
+      object <- (makeNewGObject mkGObject . return) (castPtr cObject)
       asyncResult <- (makeNewGObject mkAsyncResult . return) cAsyncResult
       asyncReadyCallback object asyncResult
       freeHaskellFunPtr (castPtrToFunPtr cCallback)
diff --git a/System/GIO/Types.chs b/System/GIO/Types.chs
--- a/System/GIO/Types.chs
+++ b/System/GIO/Types.chs
@@ -1,4 +1,5 @@
 {-# OPTIONS_HADDOCK hide #-}
+{-# LANGUAGE CPP #-}
 -- -*-haskell-*-
 -- -------------------- automatically generated file - do not edit ----------
 --  Object hierarchy for the GIMP Toolkit (GTK) Binding for Haskell
@@ -177,12 +178,8 @@
   ) where
 
 import Foreign.ForeignPtr (ForeignPtr, castForeignPtr, unsafeForeignPtrToPtr)
-#if __GLASGOW_HASKELL__>=704
 import Foreign.C.Types    (CULong(..), CUInt(..))
-#else
-import Foreign.C.Types    (CULong, CUInt)
-#endif
-import System.Glib.GType	(GType, typeInstanceIsA)
+import System.Glib.GType  (GType, typeInstanceIsA)
 import System.Glib.GObject
 
 {# context lib="gio" prefix="g" #}
diff --git a/gio.cabal b/gio.cabal
--- a/gio.cabal
+++ b/gio.cabal
@@ -1,5 +1,5 @@
 Name:           gio
-Version:        0.12.3
+Version:        0.12.4
 License:        LGPL-2.1
 License-file:   COPYING
 Copyright:      (c) 2001-2010 The Gtk2Hs Team