Index: openacs-4/contrib/packages/vocabulary/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/vocabulary/tcl/util-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/vocabulary/tcl/util-procs.tcl	23 Feb 2004 23:00:08 -0000	1.1
+++ openacs-4/contrib/packages/vocabulary/tcl/util-procs.tcl	24 Feb 2004 13:58:50 -0000	1.2
@@ -76,6 +76,12 @@
     upvar label_b  label_b
 
     set locale [lang::user::locale -package_id $package_id ]
+
+    # we can't rely on lang::user::locale to give us back a valid locale
+    if { ![exists_and_not_null locale] } {
+        set locale en_US
+    }
+
     if { ![exists_and_not_null locale_a] } {
         set locale_a [ad_get_cookie locale_a $locale]
     }