--- gforth/prim	2003/03/09 15:16:51	1.126
+++ gforth/prim	2003/05/04 08:28:28	1.127
@@ -1490,6 +1490,12 @@ wior = IOR(wretval==-1);
 time&date	( -- nsec nmin nhour nday nmonth nyear )	facility-ext	time_and_date
 ""Report the current time of day. Seconds, minutes and hours are numbered from 0.
 Months are numbered from 1.""
+#if 1
+time_t now;
+struct tm *ltime;
+time(&now);
+ltime=localtime(&now);
+#else
 struct timeval time1;
 struct timezone zone1;
 struct tm *ltime;
@@ -1497,6 +1503,7 @@ gettimeofday(&time1,&zone1);
 /* !! Single Unix specification: 
    If tzp is not a null pointer, the behaviour is unspecified. */
 ltime=localtime((time_t *)&time1.tv_sec);
+#endif
 nyear =ltime->tm_year+1900;
 nmonth=ltime->tm_mon+1;
 nday  =ltime->tm_mday;