Index: sql_imp.c
===================================================================
RCS file: /mnt/kens/cvsroot/kens/scheme/squile/sql_imp.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -B -w -p -r1.1 -r1.2
--- sql_imp.c	3 Jan 2004 02:36:23 -0000	1.1
+++ sql_imp.c	5 Jan 2004 01:38:56 -0000	1.2
@@ -218,7 +218,7 @@ SCM gh_sql_mysql_sql2scm(MYSQL_RES *res,
 			   * structure and then make list
 			   * representations of the times in scm */
     strptime(row[pos], "%Y-%m-%d", &time);
-    return gh_sql_time_list(time.tm_year, time.tm_mon + 1, time.tm_mday, 
+    return gh_sql_time_list(time.tm_year + 1900, time.tm_mon + 1, time.tm_mday, 
 			      -1, -1, -1);
     break;
   case (FIELD_TYPE_TIME):
@@ -228,7 +228,7 @@ SCM gh_sql_mysql_sql2scm(MYSQL_RES *res,
     break;
   case (FIELD_TYPE_DATETIME):
     strptime(row[pos], "%Y-%m-%d %T", &time);
-    return gh_sql_time_list(time.tm_year, time.tm_mon + 1, time.tm_mday,
+    return gh_sql_time_list(time.tm_year + 1900, time.tm_mon + 1, time.tm_mday,
 			      time.tm_hour, time.tm_min, time.tm_sec);
     break;
   case (FIELD_TYPE_TIMESTAMP):
@@ -238,7 +238,7 @@ SCM gh_sql_mysql_sql2scm(MYSQL_RES *res,
     snprintf(buf, 32, "%.4s-%.2s-%.2s %.2s:%.2s:%.2s", s, s + 4, s + 6,
 	     s + 8, s + 10, s + 12);
     strptime(buf, "%Y-%m-%d %T", &time);
-    return gh_sql_time_list(time.tm_year, time.tm_mon + 1, time.tm_mday,
+    return gh_sql_time_list(time.tm_year + 1900, time.tm_mon + 1, time.tm_mday,
 			      time.tm_hour, time.tm_min, time.tm_sec);
     break;
   default:
@@ -285,7 +285,7 @@ SCM gh_sql_msql_sql2scm(m_result *res, c
 			   * representations of the times in scm */
     if (strlen(row[pos])) {
       strptime(row[pos], "%d-%b-%Y", &time);
-      return gh_sql_time_list(time.tm_year, time.tm_mon + 1, time.tm_mday, 
+      return gh_sql_time_list(time.tm_year + 1900, time.tm_mon + 1, time.tm_mday, 
 			      -1, -1, -1);
     } else
       return gh_sql_time_list(-1, -1, -1, -1, -1, -1);