1 files changed, 4 insertions(+), 2 deletions(-)

M src/algos/tclposting.tcl

@@ 13,13 13,15 @@ namespace eval ::algos::tclposting {
       {tklib}
       {tcl\.tk}
       {tcllang}
-      {tkinter}} | ] $text]} \
+      {tkinter}
+      {tcl/tk}
+      {tk/tcl}} | ] $text]} \
     {
       return [dict get $data commit record createdAt]
     }
 
     # bare minimum
-    if {![regexp -nocase -- {\mtcl(/tk)?\M} $text] &&
+    if {![regexp -nocase -- {\mtcl\M} $text] &&
         ![regexp -- {\mTk\M} $text]} return
 
     # blocklist