diff options
| -rw-r--r-- | library/msgcat/msgcat.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl index 0c7f515..589da7a 100644 --- a/library/msgcat/msgcat.tcl +++ b/library/msgcat/msgcat.tcl @@ -1222,7 +1222,7 @@ proc msgcat::mcutil::ConvertLocale {value} { proc ::msgcat::PackageNamespaceGet {} { set ns [uplevel 2 { namespace current }] - if {![regexp -- {^::oo::} $ns]} { + if {![string match {::oo::*} $ns]} { # Not in object environment return $ns } |