Index: sqlite3_stubs.c
===================================================================
--- sqlite3_stubs.c	(.../ocaml-sqlite3-0.2.0)	(revision 2276)
+++ sqlite3_stubs.c	(.../T-mtc-120_06)	(revision 2276)
@@ -517,8 +517,8 @@
 
    const char *str = sqlite3_bind_parameter_name(stmt,i);
    if( str ) {
+      tmp             = copy_string(str); /* tmp is needed to make GC happy! */
       result          = alloc_small(1,0);
-      tmp             = copy_string(str); /* tmp is needed to make GC happy! */
       Field(result,0) = tmp;
       CAMLreturn(result);
    } else {
@@ -745,13 +745,13 @@
    switch(sqlite3_column_type(stmt,i)) {
       /* WARNING : we need the tmp variable to make GC happy! */
    case SQLITE_INTEGER:
+      tmp    = copy_int64(sqlite3_column_int64(stmt,i));
       result = alloc_small(1,0);
-      tmp    = copy_int64(sqlite3_column_int64(stmt,i));
       Field(result,0)=tmp;
       break;
    case SQLITE_FLOAT:
+      tmp    = copy_double(sqlite3_column_double(stmt,i));
       result = alloc_small(1,1);
-      tmp    = copy_double(sqlite3_column_double(stmt,i));
       Field(result,0)=tmp;
       break;
    case SQLITE3_TEXT: