diff --git a/Lib/lib-tk/Tkinter.py b/Lib/lib-tk/Tkinter.py
index cc2316e..5cab21d 100644
--- a/Lib/lib-tk/Tkinter.py
+++ b/Lib/lib-tk/Tkinter.py
@@ -1566,6 +1566,25 @@
 		self['fg']               = self['bg']
 		self['activebackground'] = self['bg']
 
+######################################################################
+# Test:
+
+def _test():
+	root = Tk()
+	label = Label(root, text="Proof-of-existence test for Tk")
+	label.pack()
+	test = Button(root, text="Click me!",
+		      command=lambda root=root: root.test.config(
+			      text="[%s]" % root.test['text']))
+	test.pack()
+	root.test = test
+	quit = Button(root, text="QUIT", command=root.destroy)
+	quit.pack()
+	root.mainloop()
+
+if __name__ == '__main__':
+	_test()
+
 
 # Emacs cruft
 # Local Variables:
diff --git a/Lib/tkinter/Tkinter.py b/Lib/tkinter/Tkinter.py
index cc2316e..5cab21d 100755
--- a/Lib/tkinter/Tkinter.py
+++ b/Lib/tkinter/Tkinter.py
@@ -1566,6 +1566,25 @@
 		self['fg']               = self['bg']
 		self['activebackground'] = self['bg']
 
+######################################################################
+# Test:
+
+def _test():
+	root = Tk()
+	label = Label(root, text="Proof-of-existence test for Tk")
+	label.pack()
+	test = Button(root, text="Click me!",
+		      command=lambda root=root: root.test.config(
+			      text="[%s]" % root.test['text']))
+	test.pack()
+	root.test = test
+	quit = Button(root, text="QUIT", command=root.destroy)
+	quit.pack()
+	root.mainloop()
+
+if __name__ == '__main__':
+	_test()
+
 
 # Emacs cruft
 # Local Variables: