 : odbc-get-field ( statement column -- field )
   dup column? [ dupd odbc-describe-column ] unless dup >r number>>
   SQL-C-DEFAULT
-  8192 CHAR: \space <string> ascii string>alien dup >r
+  8192 CHAR: space <string> ascii string>alien dup >r
   8192
   f SQLGetData succeeded? [
     r> r> [ dereference-type-pointer ] keep <field>


: odbc-describe-column ( statement n -- column )
  dup >r
  1024 CHAR: \space <string> ascii string>alien dup >r
  1024
  0 <short>
  0 <short> dup >r

  SQL-HANDLE-STMT swap alloc-handle ;

: temp-string ( length -- byte-array length )
  [ CHAR: space <string> ascii string>alien ] keep ;

: odbc-init ( -- env )
  alloc-env-handle
