# Check if we are within an object
    if {[info object isa object $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa class $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa metaclass $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa mixin $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa typeof $ns]} {
	return [info object namespace $ns]
    } else {
	# Not in an object or class environment
	return $ns
    } }

# Initialize the default locale
proc msgcat::mcutil::getsystemlocale {} {