Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.1453.2.192
diff -u -u -p -r1.1453.2.192 ChangeLog
--- ChangeLog	2 Dec 2003 09:31:54 -0000	1.1453.2.192
+++ ChangeLog	26 Dec 2003 01:11:45 -0000
@@ -1,3 +1,8 @@
+2003-12-17  Daniel Steffen  <das@users.sourceforge.net>
+
+	* generic/tclBinary.c (DeleteScanNumberCache): fixed crashing bug
+	when numeric scan-value cache contains NULL value.
+
 2003-12-02  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* generic/tclBinary.c (DeleteScanNumberCache, ScanNumber): Made
Index: generic/tclBinary.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBinary.c,v
retrieving revision 1.13.2.1
diff -u -u -p -r1.13.2.1 tclBinary.c
--- generic/tclBinary.c	2 Dec 2003 09:31:54 -0000	1.13.2.1
+++ generic/tclBinary.c	26 Dec 2003 01:11:46 -0000
@@ -1736,7 +1736,9 @@ DeleteScanNumberCache(numberCachePtr)
     while (hEntry != NULL) {
 	register Tcl_Obj *value = (Tcl_Obj *) Tcl_GetHashValue(hEntry);
 
-	Tcl_DecrRefCount(value);
+	if (value != NULL) {
+	    Tcl_DecrRefCount(value);
+	}
 	hEntry = Tcl_NextHashEntry(&search);
     }
     Tcl_DeleteHashTable(numberCachePtr);