Unfortunately they are still red:

http://buildbot.python.org/all/builders/AMD64%20Windows7%20SP1%202.7/builds/1020/steps/test/logs/stdio
======================================================================
FAIL: test_split (test.test_tcl.TclTest)
----------------------------------------------------------------------
Traceback (most recent call last):
  File "C:\buildbot.python.org\2.7.kloth-win64\build\lib\test\test_tcl.py", line 283, in test_split
    self.assertEqual(split(arg), res)
AssertionError: Tuples differ: ('12', u'\u20ac', u'\u20ac', '... != (12, u'\u20ac', u'\u20ac', (3....

First differing element 0:
12
12

- ('12', u'\u20ac', u'\u20ac', '3.4')
?  -  -                        ^   ^

+ (12, u'\u20ac', u'\u20ac', (3.4,))
?                            ^   ^ +


======================================================================
FAIL: test_splitlist (test.test_tcl.TclTest)
----------------------------------------------------------------------
Traceback (most recent call last):
  File "C:\buildbot.python.org\2.7.kloth-win64\build\lib\test\test_tcl.py", line 243, in test_splitlist
    self.assertEqual(splitlist(arg), res)
AssertionError: Tuples differ: ('1', u'\u20ac', u'\u20ac', '3... != (1, u'\u20ac', u'\u20ac', (3.4...

First differing element 0:
1
1

- ('1', u'\u20ac', u'\u20ac', '3.4')
?  - -                        ^   ^

+ (1, u'\u20ac', u'\u20ac', (3.4,))
?                           ^   ^ +


----------------------------------------------------------------------

http://buildbot.python.org/all/builders/x86%20Windows%20Server%202003%20%5BSB%5D%202.7/builds/787/steps/test/logs/stdio
http://buildbot.python.org/all/builders/AMD64%20Windows%20Server%202008%20%5BSB%5D%202.7/builds/865/steps/test/logs/stdio

All they are run with Tcl/Tk 8.5.2.