diff --git a/basis/io/pools/pools.factor b/basis/io/pools/pools.factor index 1cd104da48..d1042818f7 100644 --- a/basis/io/pools/pools.factor +++ b/basis/io/pools/pools.factor @@ -45,7 +45,7 @@ GENERIC: make-connection ( pool -- conn ) [ [ acquire-connection ] keep ] dip [ (with-pooled-connection) ] [ ] [ 2drop dispose ] cleanup ; inline -M: return-connection dispose +M: return-connection-state dispose [ conn>> ] [ pool>> ] bi return-connection ; : return-connection-later ( db pool -- )