diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## 2.5.0.0
+
+* Add explicit call to `finalizeForeignPtr` on connection disconnects. Ensures disconnects happen at the moment close is call, as opposed to when the GC frees the ForeignPtr.
+
 ## 2.4.0.0
 
 * Remove custom reference counting logic. Thanks to David Johnson.
diff --git a/Database/HDBC/PostgreSQL/Connection.hsc b/Database/HDBC/PostgreSQL/Connection.hsc
--- a/Database/HDBC/PostgreSQL/Connection.hsc
+++ b/Database/HDBC/PostgreSQL/Connection.hsc
@@ -79,7 +79,7 @@
        serverver <- pqserverVersion cconn
        let clientver = #{const_str PG_VERSION}
        let rconn = Impl.Connection {
-                            Impl.disconnect = fdisconnect children,
+                            Impl.disconnect = fdisconnect conn children,
                             Impl.begin = if auto_transaction
                                          then return ()
                                          else begin_transaction conn children,
@@ -170,8 +170,11 @@
       desccol x =
           error $ "Got unexpected result from pg_attribute: " ++ show x
 
-fdisconnect :: ChildList -> IO ()
-fdisconnect = closeAllChildren
+fdisconnect :: Conn -> ChildList -> IO ()
+fdisconnect (lock, fptr) childList = do
+  closeAllChildren childList
+  modifyMVar_ lock $ \_ ->
+    finalizeForeignPtr fptr
 
 foreign import ccall safe "libpq-fe.h PQconnectdb"
   pqconnectdb :: CString -> IO (Ptr CConn)
diff --git a/HDBC-postgresql.cabal b/HDBC-postgresql.cabal
--- a/HDBC-postgresql.cabal
+++ b/HDBC-postgresql.cabal
@@ -1,5 +1,5 @@
 Name: HDBC-postgresql
-Version: 2.4.0.0
+Version: 2.5.0.0
 License: BSD3
 Maintainer: Nicolas Wu <nicolas.wu@gmail.com>
 Author: John Goerzen