diff --git a/scsh/odbc/odbc.scm b/scsh/odbc/odbc.scm
index 9f76c10..d06dc3b 100644
--- a/scsh/odbc/odbc.scm
+++ b/scsh/odbc/odbc.scm
@@ -566,7 +566,7 @@
 	 (status (car status.value))
 	 (value (cadr status.value)))
     (if (odbc-call-successful? status)
-	(let ((conn-handle (really-make-environment-handle value)))
+	(let ((conn-handle (really-make-connection-handle value env-handle #f)))
 	  (add-finalizer! conn-handle free-connection-handle)
 	  (values status conn-handle))
 	(values status value))))
@@ -587,7 +587,7 @@
 	 (status (car status.value))
 	 (value (cadr status.value)))
     (if (odbc-call-successful? status)
-	(let ((stmt-handle (really-make-statement-handle value)))
+	(let ((stmt-handle (really-make-statement-handle value conn-handle)))
 	  (add-finalizer! stmt-handle free-statement-handle)
 	  (values status stmt-handle))
 	(values status value))))