Index: openacs-4/packages/xowiki/tcl/package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v diff -u -r1.332.2.60 -r1.332.2.61 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 11 Aug 2020 21:32:48 -0000 1.332.2.60 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 19 Aug 2020 16:53:33 -0000 1.332.2.61 @@ -131,17 +131,17 @@ } Package instproc default_locale {} { - if {[info exists :__default_locale]} { - return ${:__default_locale} - } if {[:get_parameter use_connection_locale 0]} { # we return the connection locale (if not connected the system locale) set locale [::xo::cc locale] } else { + if {[info exists :__default_locale]} { + return ${:__default_locale} + } # return either the package locale or the site-wide locale set locale [lang::system::locale -package_id ${:id}] + set :__default_locale $locale } - set :__default_locale $locale return $locale }