odbc: convert DSN string to alien before use in odbc-connect

diff --git a/unmaintained/odbc/odbc.factor b/unmaintained/odbc/odbc.factor
index 76bf770fb8face82287e200a5b7fa7c0cfc19dcf..db70722fde68f5ac5bde9f3c9ca5463e975ebf56 100644 (file)
--- a/unmaintained/odbc/odbc.factor
+++ b/unmaintained/odbc/odbc.factor
@@ -166,7 +166,9 @@ PRIVATE>
 
 : odbc-connect ( env dsn -- dbc )
     [ alloc-dbc-handle dup ] dip
-    f swap dup length 1024 temp-string 0 short <ref> SQL-DRIVER-NOPROMPT SQLDriverConnect
+    f swap ascii string>alien dup length
+    1024 temp-string 0 short <ref>
+    SQL-DRIVER-NOPROMPT SQLDriverConnect
     succeeded? [ "odbc-connect failed" throw ] unless ;
 
 : odbc-disconnect ( dbc -- )