Index: 64-bit/src/odbc/odbc-utilities.lisp
===================================================================
--- 64-bit/src/odbc/odbc-utilities.lisp	(revision 64-bit,2.1.1)
+++ 64-bit/src/odbc/odbc-utilities.lisp	(revision 64-bit,2.1.3)
@@ -44,7 +44,12 @@
                      )))
 
-(defun connect-mysql (server user password)
-  (connect-generic :dsn *default-mysql-dsn*
-                   :server server :uid user :pwd password))
+(defun connect-mysql (server database user password)
+  (apply 'connect-generic 
+         (append 
+          (list :dsn *default-mysql-dsn*
+                :server server :uid user :pwd password)
+          (if database (list :database database) ()) 
+         )))
+