Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -N -r1.43 -r1.44
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	1 Oct 2008 22:19:28 -0000	1.43
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	9 Oct 2008 10:57:15 -0000	1.44
@@ -202,7 +202,7 @@
     if {[ns_conn isconnected]} {
       # This can be called, before ad_conn is initialized. 
       # Since it is not possible to pass the user_id and ad_conn barfs
-      # when  it tries to detect it, we use the catch and reset it later
+      # when it tries to detect it, we use the catch and reset it later
       if {[catch {set locale [lang::conn::locale -package_id $package_id]}]} {
         set locale en_US
       }
@@ -235,6 +235,9 @@
       ::xo::cc process_query_parameter
     }
   }
+  ConnectionContext instproc lang {} {
+    return [string range [my locale] 0 1]
+  }
   ConnectionContext instproc set_user_id {user_id} {
     if {$user_id == -1} {  ;# not specified
       if {[info exists ::ad_conn(user_id)]} {