diff --git a/MusicBrainz.cabal b/MusicBrainz.cabal
--- a/MusicBrainz.cabal
+++ b/MusicBrainz.cabal
@@ -1,5 +1,5 @@
 name:                MusicBrainz
-version:             0.2.3
+version:             0.2.4
 synopsis:            interface to MusicBrainz XML2 web service
 description:         interface to MusicBrainz XML2 web service
 homepage:            http://floss.scru.org/hMusicBrainz
@@ -27,11 +27,11 @@
                , text
                , time
                , resourcet
+               , time-locale-compat
                , vector        >= 0.9
                , xml-types     >= 0.3
                , http-conduit  >= 1.8.8
                , http-types    >= 0.6
-               , old-locale    >= 1.0
                , xml-conduit   >= 1.1
                , HTTP          >= 4000.0
                , aeson         >= 0.6.1
@@ -45,4 +45,4 @@
 source-repository this
   type:     git
   location: git://anonscm.debian.org/users/clint/MusicBrainz.git
-  tag:      hMB/0.2.3
+  tag:      hMB/0.2.4
diff --git a/Network/Protocol/MusicBrainz/Types.hs b/Network/Protocol/MusicBrainz/Types.hs
--- a/Network/Protocol/MusicBrainz/Types.hs
+++ b/Network/Protocol/MusicBrainz/Types.hs
@@ -28,7 +28,7 @@
 import Data.Maybe (fromMaybe)
 import qualified Data.Text as T
 import Data.Time.Format (parseTime)
-import System.Locale (defaultTimeLocale)
+import Data.Time.Locale.Compat (defaultTimeLocale)
 
 newtype MBID = MBID { unMBID :: Text }
     deriving (Eq, Show)
diff --git a/Network/Protocol/MusicBrainz/XML2/WebService.hs b/Network/Protocol/MusicBrainz/XML2/WebService.hs
--- a/Network/Protocol/MusicBrainz/XML2/WebService.hs
+++ b/Network/Protocol/MusicBrainz/XML2/WebService.hs
@@ -25,7 +25,7 @@
 import Data.XML.Types (Event)
 import Network.HTTP.Base (urlEncode)
 import Network.HTTP.Conduit (simpleHttp)
-import System.Locale (defaultTimeLocale)
+import Data.Time.Locale.Compat (defaultTimeLocale)
 import Text.XML.Stream.Parse (parseBytes, def, content, tagNoAttr, tagName, requireAttr, optionalAttr, force, many, AttrParser)
 import Text.XML (Name(..))