Index: unix/tclUnixTime.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixTime.c,v
retrieving revision 1.17
diff -u -r1.17 tclUnixTime.c
--- unix/tclUnixTime.c	19 May 2003 05:42:36 -0000	1.17
+++ unix/tclUnixTime.c	19 May 2003 16:25:44 -0000
@@ -337,8 +337,12 @@
 		(((t->tm_hour * 60) + t->tm_min)/144));
 	return(strlen(s));
     } else {
+	Tcl_DStringInit( &utf8Buffer );
+	Tcl_UtfToExternalDString( "", format, -1, &utf8Buffer ); 
 	setlocale(LC_TIME, "");
-	status = strftime(s, maxsize, format, t);
+	status = strftime( Tcl_DStringValue( &utf8Buffer ), 
+			   maxsize, format, t );
+	Tcl_DStringFree( &utf8Buffer );
 	if ( status > 0 ) {
 	    Tcl_DStringInit ( &utf8Buffer );
 	    Tcl_ExternalToUtfDString( NULL, s, status, &utf8Buffer );
