如何将 proc 参数的默认值设置为 Tcl 中的新字典

我想编写一个proc，它可以接受dict作为可选参数，或者如果没有给出则创建新的。然而，我的尝试失败了

参数说明符“dictionary [dict create]”中的字段太多

proc getOpts { {dictionary [dict create]} } {
    upvar $dictionary dct
    for { set i 0 } { $i < $::argc } { incr i } {
        set key [lindex $::argv $i]
        if { [string index $key 0] == "-" } {
            incr i
            dict set dct [string trimleft $key "-"] [lindex $::argv $i]
        } else {
            dict set dct $key ""
        }
    }
}

由于字典是纯值，我认为这可行。看起来我可能错了。不过，我想知道为什么它不起作用。