Index: generic/tclAlloc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclAlloc.c,v
retrieving revision 1.19
diff -u -r1.19 tclAlloc.c
--- generic/tclAlloc.c	6 Apr 2004 22:25:48 -0000	1.19
+++ generic/tclAlloc.c	4 May 2004 15:31:32 -0000
@@ -23,9 +23,8 @@
  * that has significantly reduced lock contention.
  */
 
-#if !defined(TCL_THREADS) || !defined(USE_THREAD_ALLOC)
-
 #include "tclInt.h"
+#if !defined(TCL_THREADS) || !defined(USE_THREAD_ALLOC)
 
 #if USE_TCLALLOC
 
Index: generic/tclInt.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.h,v
retrieving revision 1.156
diff -u -r1.156 tclInt.h
--- generic/tclInt.h	3 May 2004 19:59:18 -0000	1.156
+++ generic/tclInt.h	4 May 2004 15:31:33 -0000
@@ -2169,6 +2169,8 @@
 # define TclNewListObjDirect(objc, objv) \
     TclDbNewListObjDirect(objc, objv, __FILE__, __LINE__)
 
+#undef USE_THREAD_ALLOC
+
 #elif defined(PURIFY)
 
 /*
Index: generic/tclThreadAlloc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclThreadAlloc.c,v
retrieving revision 1.11
diff -u -r1.11 tclThreadAlloc.c
--- generic/tclThreadAlloc.c	30 Apr 2004 20:06:44 -0000	1.11
+++ generic/tclThreadAlloc.c	4 May 2004 15:31:33 -0000
@@ -14,9 +14,8 @@
  * RCS: @(#) $Id: tclThreadAlloc.c,v 1.11 2004/04/30 20:06:44 dgp Exp $
  */
 
-#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC)
-
 #include "tclInt.h"
+#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC)
 
 /*
  * If range checking is enabled, an additional byte will be allocated
