From 2f0e73945979ca7f408de09de00919b54b2861fd Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Sat, 26 Jul 2025 03:47:46 +1000
Subject: [PATCH] fix string is dict fallback in punk::args for 8.6

---
 src/bootsupport/modules/punk/args-0.2.tm                        | 2 +-
 src/modules/punk/args-999999.0a1.0.tm                           | 2 +-
 .../punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm   | 2 +-
 .../punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.tm     | 2 +-
 src/vfs/_vfscommon.vfs/modules/punk/args-0.2.tm                 | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/bootsupport/modules/punk/args-0.2.tm b/src/bootsupport/modules/punk/args-0.2.tm
index 9fe7cb30..f2b3c002 100644
--- a/src/bootsupport/modules/punk/args-0.2.tm
+++ b/src/bootsupport/modules/punk/args-0.2.tm
@@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
         proc string_is_dict {args} {
             #ignore opts
             set str [lindex $args end]
-            if {[catch {[llength $str] len}]} {
+            if {[catch {llength $str} len]} {
                 return 0
             }
             if {$len % 2 == 0} {
diff --git a/src/modules/punk/args-999999.0a1.0.tm b/src/modules/punk/args-999999.0a1.0.tm
index 0e82764e..be5a2bae 100644
--- a/src/modules/punk/args-999999.0a1.0.tm
+++ b/src/modules/punk/args-999999.0a1.0.tm
@@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
         proc string_is_dict {args} {
             #ignore opts
             set str [lindex $args end]
-            if {[catch {[llength $str] len}]} {
+            if {[catch {llength $str} len]} {
                 return 0
             }
             if {$len % 2 == 0} {
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm
index 9fe7cb30..f2b3c002 100644
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm
+++ b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm
@@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
         proc string_is_dict {args} {
             #ignore opts
             set str [lindex $args end]
-            if {[catch {[llength $str] len}]} {
+            if {[catch {llength $str} len]} {
                 return 0
             }
             if {$len % 2 == 0} {
diff --git a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.tm b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.tm
index 9fe7cb30..f2b3c002 100644
--- a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.tm
+++ b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/args-0.2.tm
@@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
         proc string_is_dict {args} {
             #ignore opts
             set str [lindex $args end]
-            if {[catch {[llength $str] len}]} {
+            if {[catch {llength $str} len]} {
                 return 0
             }
             if {$len % 2 == 0} {
diff --git a/src/vfs/_vfscommon.vfs/modules/punk/args-0.2.tm b/src/vfs/_vfscommon.vfs/modules/punk/args-0.2.tm
index 9fe7cb30..f2b3c002 100644
--- a/src/vfs/_vfscommon.vfs/modules/punk/args-0.2.tm
+++ b/src/vfs/_vfscommon.vfs/modules/punk/args-0.2.tm
@@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib {
         proc string_is_dict {args} {
             #ignore opts
             set str [lindex $args end]
-            if {[catch {[llength $str] len}]} {
+            if {[catch {llength $str} len]} {
                 return 0
             }
             if {$len % 2 == 0} {