diff --git a/ChangeLog b/ChangeLog
index 6093a91f4..39fbd5ae1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2004-06-10 Stefan Jones <stefan.jones@multigig.com>
 
+	* src/tclspice.c:
+	test for FILE in tcl_printf being stdout/stderr
+	Could be more than one fd for stdout/stderr
+	
 	* src/tclspice.c:
 	Do not join worker thread when using TCL_Threads as it causes
 	lockups on W32
diff --git a/src/tclspice.c b/src/tclspice.c
index 47a8e3c45..b6408f706 100755
--- a/src/tclspice.c
+++ b/src/tclspice.c
@@ -1961,7 +1961,8 @@ int tcl_vfprintf(FILE *f, const char *fmt, va_list args_in)
   char *outptr, *bigstr = NULL, *finalstr = NULL;
   int i, nchars, result, escapes = 0;
 
-  if((fileno(f) !=  STDOUT_FILENO && fileno(f) != STDERR_FILENO)
+  if((fileno(f) !=  STDOUT_FILENO && fileno(f) != STDERR_FILENO &&
+	 f != stderr && f != stdout )
 #ifdef THREADS
      || ( fl_running && bgtid == thread_self())
 #endif