diff --git a/Lib/lib-tk/Tkinter.py b/Lib/lib-tk/Tkinter.py
index 3c2b0abf02c..f450c828d00 100644
--- a/Lib/lib-tk/Tkinter.py
+++ b/Lib/lib-tk/Tkinter.py
@@ -5,6 +5,14 @@ from _tkinter import TclError
 from types import *
 from Tkconstants import *
 
+# XXXX Not really correct.
+# The following code disables all python  mainloop event handling,
+# but what we really want is to disable it only for tk windows...
+import os
+if os.name == 'mac':
+	import MacOS
+	MacOS.EnableAppswitch(0)
+
 CallableTypes = (FunctionType, MethodType,
 		 BuiltinFunctionType, BuiltinMethodType)
 
diff --git a/Lib/tkinter/Tkinter.py b/Lib/tkinter/Tkinter.py
index 3c2b0abf02c..f450c828d00 100755
--- a/Lib/tkinter/Tkinter.py
+++ b/Lib/tkinter/Tkinter.py
@@ -5,6 +5,14 @@ from _tkinter import TclError
 from types import *
 from Tkconstants import *
 
+# XXXX Not really correct.
+# The following code disables all python  mainloop event handling,
+# but what we really want is to disable it only for tk windows...
+import os
+if os.name == 'mac':
+	import MacOS
+	MacOS.EnableAppswitch(0)
+
 CallableTypes = (FunctionType, MethodType,
 		 BuiltinFunctionType, BuiltinMethodType)