Index: generic/tclClock.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclClock.c,v
retrieving revision 1.37
diff -u -r1.37 tclClock.c
--- generic/tclClock.c	30 Oct 2004 18:04:00 -0000	1.37
+++ generic/tclClock.c	14 Jul 2005 00:36:38 -0000
@@ -214,7 +214,13 @@
     localtime_r(timePtr, tmPtr);
 #else
     Tcl_MutexLock(&clockMutex);
-    memcpy((VOID *) tmPtr, (VOID *) localtime(timePtr), sizeof(struct tm));
+    {
+        struct tm *localPtr = localtime(timePtr);
+        if (localPtr == NULL)
+            memset((VOID *) tmPtr, 0, sizeof(struct tm));
+        else
+            memcpy((VOID *) tmPtr, (VOID *) localPtr, sizeof(struct tm));
+    }
     Tcl_MutexUnlock(&clockMutex);
 #endif    
     return tmPtr;
