diff -aru DBus-0.4/DBus/Internal.hsc DBus-0.4.new/DBus/Internal.hsc
--- DBus-0.4/DBus/Internal.hsc	2008-09-08 01:28:20.000000000 +0200
+++ DBus-0.4.new/DBus/Internal.hsc	2011-02-15 08:07:45.222787595 +0100
@@ -9,7 +9,7 @@
 
 module DBus.Internal where
 
-import Control.Exception (throwDyn)
+import Control.Exception (throwIO)
 import Control.Monad (when)
 import DBus (Error(..))
 import Foreign
@@ -57,6 +57,6 @@
       else do name <- #{peek DBusError, name} err >>= peekCString
               msg  <- #{peek DBusError, message} err >>= peekCString
               error_free err
-              throwDyn $ Error name msg
+              throwIO $ Error name msg
 
 -- vim: set ts=2 sw=2 tw=72 et ft=haskell :
diff -aru DBus-0.4/DBus.cabal DBus-0.4.new/DBus.cabal
--- DBus-0.4/DBus.cabal	2008-09-08 01:28:20.000000000 +0200
+++ DBus-0.4.new/DBus.cabal	2011-02-15 08:09:19.376168928 +0100
@@ -11,7 +11,8 @@
 description:    Bindings for the D-Bus API.
   For details on D-Bus, see the D-Bus wiki at:
   <http://www.freedesktop.org/wiki/Software/dbus>
-build-depends:  base, bytestring
+build-depends:  base >= 4, bytestring
+pkgconfig-depends:  dbus-1
 build-type:     Configure
 extensions:     ForeignFunctionInterface, OverlappingInstances,
                 ExistentialQuantification
diff -aru DBus-0.4/DBus.hsc DBus-0.4.new/DBus.hsc
--- DBus-0.4/DBus.hsc	2008-09-08 01:28:20.000000000 +0200
+++ DBus-0.4.new/DBus.hsc	2011-02-15 08:08:49.974771904 +0100
@@ -2,7 +2,7 @@
 -- Copyright (C) 2006 Evan Martin <martine@danga.com>
 
 #define DBUS_API_SUBJECT_TO_CHANGE
-#include "dbus/dbus.h"
+#include <dbus/dbus.h>
 
 module DBus (
   module DBus.Shared,
@@ -24,6 +24,7 @@
 
 import DBus.Shared
 import Data.Typeable (Typeable(..), mkTyConApp, mkTyCon)
+import Control.Exception
 
 -- |'Error's carry a name (like \"org.freedesktop.dbus.Foo\") and a
 -- message (like \"connection failed\").
@@ -32,5 +33,6 @@
   typeOf _ = mkTyConApp (mkTyCon "DBus.Error") []
 instance Show Error where
   show (Error name message) = "D-Bus Error (" ++ name ++ "): " ++ message
+instance Exception Error
 
 -- vim: set ts=2 sw=2 tw=72 et ft=haskell :