Index: openacs-4/packages/categories/www/cadmin/synonym-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/synonym-form.tcl,v
diff -u -N -r1.5 -r1.5.4.1
--- openacs-4/packages/categories/www/cadmin/synonym-form.tcl	21 Dec 2008 18:05:35 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/synonym-form.tcl	27 Aug 2013 11:33:58 -0000	1.5.4.1
@@ -44,7 +44,7 @@
     {language:text(select) {label "Language"} {options $languages}}
 } -new_request {
     set name ""
-    if {![empty_string_p [ad_conn locale]]} {
+    if { [ad_conn locale] ne ""} {
 	set language [ad_conn locale]
     } else {
 	set language [parameter::get -parameter DefaultLocale -default en_US]