Index: tclBinary.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBinary.c,v
retrieving revision 1.64
diff -u -r1.64 tclBinary.c
--- tclBinary.c	30 Apr 2010 20:52:51 -0000	1.64
+++ tclBinary.c	23 Jul 2010 00:36:55 -0000
@@ -2710,6 +2710,9 @@
 	*cursor++ = UCHAR((value >> 16) & 0xff);
 	*cursor++ = UCHAR((value >> 8) & 0xff);
 	*cursor++ = UCHAR(value & 0xff);
+	if (!strict)
+	    while (data < dataend && isspace(*data))
+		data++;
     }
     if (cut > size) {
 	cut = size;
