Index: Lib/test/test_tcl.py
===================================================================
--- Lib/test/test_tcl.py	(revision 67276)
+++ Lib/test/test_tcl.py	(working copy)
@@ -130,6 +130,11 @@
         import os
         old_display = None
         import sys
+
+        if 'regrtest' in sys.argv[0] and any('-R' in x for x in sys.argv[1:]):
+            # trying to initialize tk after failing is not supported
+            return
+
         if sys.platform.startswith(('win', 'darwin', 'cygwin')):
             return  # no failure possible on windows?
         if 'DISPLAY' in os.environ:
@@ -142,6 +147,7 @@
             display = os.popen('echo $DISPLAY').read().strip()
             if display:
                 return
+
         try:
             tcl = Tcl()
             self.assertRaises(TclError, tcl.winfo_geometry)