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.26 -r1.27
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	19 Dec 2006 13:16:29 -0000	1.26
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	21 Dec 2006 11:55:29 -0000	1.27
@@ -1,3 +1,11 @@
+ad_library {
+    XoWiki - package specific methods
+
+    @creation-date 2006-10-10
+    @author Gustaf Neumann
+    @cvs-id $Id$
+}
+
 namespace eval ::xowiki {
 
   ::xo::PackageMgr create Package \
@@ -56,17 +64,22 @@
       return [ns_urldecode $string]
   }
   
-  Package instproc default_language {} {
+  Package instproc default_locale {} {
+    # TODO: this might be called quite often. we can optimize this my caching into xo::cc
     if {[ns_conn isconnected] && [my get_parameter use_connection_locale 0]} {
       # we are connected, return the connection locale
       set locale [lang::conn::locale]
     } else {
       # return either the package locale or the site-wide locale
       set locale [lang::system::locale -package_id [my id]]
     }
-    return [string range $locale 0 1]
+    return $locale
   }
   
+  Package instproc default_language {} {
+    return [string range [my default_locale] 0 1]
+  }
+  
   Package instproc pretty_link {
       {-anchor ""} {-absolute:boolean false} {-lang ""} name 
   } {