Index: languages/tcl/t/cmd_gets.t
===================================================================
--- languages/tcl/t/cmd_gets.t	(revision 15065)
+++ languages/tcl/t/cmd_gets.t	(working copy)
@@ -15,4 +15,4 @@
   {can not find channel named "#parrot"} \
   {bad channel}
 
-# XXX Need to test actually reading something in. 
+# XXX (#40628): Need to test actually reading something in.