Index: languages/tcl/t/cmd_switch.t
===================================================================
--- languages/tcl/t/cmd_switch.t	(revision 15056)
+++ languages/tcl/t/cmd_switch.t	(working copy)
@@ -180,7 +180,7 @@
   {extra switch pattern with no body} \
   {-glob, pattern with no body}
 
-# XXX Need -regexp tests 
+# XXX (#40619): Need -regexp tests 
 
 eval_is {switch -regexp a {a 1 b}} \
   {extra switch pattern with no body} \