diff --git a/persistable-types-HDBC-pg.cabal b/persistable-types-HDBC-pg.cabal
--- a/persistable-types-HDBC-pg.cabal
+++ b/persistable-types-HDBC-pg.cabal
@@ -1,5 +1,5 @@
 name:                persistable-types-HDBC-pg
-version:             0.0.1.2
+version:             0.0.1.3
 synopsis:            HDBC and Relational-Record instances of PostgreSQL extended types
 description:         This package contains HDBC Convertible instances and
                      Relational-Record persistable instances of PostgreSQL extended types
@@ -30,7 +30,7 @@
                      , text-postgresql
                      , convertible
                      , HDBC
-                     , persistable-record
+                     , persistable-record >= 0.4
                      , relational-query-HDBC
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/src/Database/HDBC/PostgreSQL/Persistable.hs b/src/Database/HDBC/PostgreSQL/Persistable.hs
--- a/src/Database/HDBC/PostgreSQL/Persistable.hs
+++ b/src/Database/HDBC/PostgreSQL/Persistable.hs
@@ -3,12 +3,13 @@
 
 module Database.HDBC.PostgreSQL.Persistable () where
 
+import Data.Convertible (convert)
 import Data.PostgreSQL.NetworkAddress (Inet, Cidr)
 import Database.HDBC (SqlValue)
 import Database.HDBC.Record.Persistable ()
 import Database.Record.Persistable (PersistableWidth (..), unsafeValueWidth)
-import Database.Record.FromSql (FromSql (..), valueFromSql)
-import Database.Record.ToSql (ToSql (..), valueToSql)
+import Database.Record.FromSql (FromSql (..), valueRecordFromSql)
+import Database.Record.ToSql (ToSql (..), valueRecordToSql)
 
 import Database.HDBC.PostgreSQL.Instances ()
 
@@ -20,13 +21,13 @@
   persistableWidth = unsafeValueWidth
 
 instance FromSql SqlValue Inet where
-  recordFromSql = valueFromSql
+  recordFromSql = valueRecordFromSql convert
 
 instance FromSql SqlValue Cidr where
-  recordFromSql = valueFromSql
+  recordFromSql = valueRecordFromSql convert
 
 instance ToSql SqlValue Inet where
-  recordToSql = valueToSql
+  recordToSql = valueRecordToSql convert
 
 instance ToSql SqlValue Cidr where
-  recordToSql = valueToSql
+  recordToSql = valueRecordToSql convert