Error in sql/database.lisp

Hi.  I had trouble compiling clsql-4.0.5 because of an error in 
sql/database.lisp.  I don't know if this is the right fix, but it at 
least compiled.

(Symbol POOL didn't resolve.)

--- /home/stian/.sbcl/site/clsql-4.0.5/sql/database.lisp 
2009-08-12 16:45:32.000000000 +0200
+++ database.lisp       2009-06-03 02:34:27.000000000 +0200
@@ -166,7 +166,7 @@
    (let ((database (find-database database :errorp (and database error))))
      (when database
        (if (conn-pool database)
-          (with-process-lock ((conn-pool-lock (conn-pool database)) 
"Delete from pool")
+          (with-process-lock ((conn-pool-lock pool) "Delete from pool")
              (when (release-to-pool database)
                (setf *connected-databases* (delete database 
*connected-databases*))
                (when (eq database *default-database*)