Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.106 -r1.107
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	1 Oct 2008 22:14:28 -0000	1.106
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	6 Oct 2008 12:06:56 -0000	1.107
@@ -132,9 +132,15 @@
 
   proc ::xowiki::locales {} {
     set locales [lang::system::get_locales]
-    set defpos [lsearch $locales [lang::conn::locale]]
-    set locales [linsert [lreplace $locales $defpos $defpos] 0 \
-                     [lang::conn::locale]]
+    if {[ns_conn isconnected]} {
+      #
+      # Reorder the locales and put the connection locale to the front
+      # in case we have a connection
+      #
+      set defpos [lsearch $locales [lang::conn::locale]]
+      set locales [linsert [lreplace $locales $defpos $defpos] 0 \
+                       [lang::conn::locale]]
+    }
     foreach l $locales {lappend lpairs [list $l $l]}
     return $lpairs
   }