odbc: convert string to alien in odbc-prepare

diff --git a/extra/odbc/odbc.factor b/extra/odbc/odbc.factor
index cd621f0099711d7826e5b60ba6971b8bb50e3d2b..e13b969cbcec46792b4af5b6e3ac2a316f1151ed 100644 (file)
--- a/extra/odbc/odbc.factor
+++ b/extra/odbc/odbc.factor
@@ -154,7 +154,8 @@ PRIVATE>
     SQLDisconnect succeeded? [ "odbc-disconnect failed" throw ] unless ;
 
 : odbc-prepare ( dbc string -- statement )
-    [ alloc-stmt-handle dup ] dip dup length SQLPrepare
+    [ alloc-stmt-handle dup ] dip ascii string>alien
+    dup length SQLPrepare
     succeeded? [ "odbc-prepare failed" throw ] unless ;
 
 : odbc-free-statement ( statement -- )