Index: languages/tcl/t/cmd_flush.t
===================================================================
--- languages/tcl/t/cmd_flush.t	(revision 15065)
+++ languages/tcl/t/cmd_flush.t	(working copy)
@@ -15,4 +15,4 @@
   {can not find channel named "toilet"} \
   {invalid channel name}
 
-# XXX test actual flushing.
+# XXX (#40627) test actual flushing.