--- tcl8.5a6/generic/tclInt.h	Tue Apr 24 15:07:03 2007
+++ generic/tclInt.h	Tue Aug 28 13:22:28 2007
@@ -3367,6 +3367,6 @@
 #define TclIsNaN(d)		(_isnan((d)))
 #else
-#define TclIsInfinite(d)	( (d) > DBL_MAX || (d) < -DBL_MAX )
-#define TclIsNaN(d)		((d) != (d))
+#define TclIsInfinite		isinf
+#define TclIsNaN		isnan
 #endif
 
