Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v
diff -u -N -r1.24.2.1 -r1.24.2.2
--- openacs-4/packages/acs-lang/tcl/localization-procs.tcl	10 Sep 2015 08:21:26 -0000	1.24.2.1
+++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl	4 Feb 2017 14:09:50 -0000	1.24.2.2
@@ -93,8 +93,11 @@
 	# Strip leading zeros
 	regexp -- "0*(\[0-9\.\]+)" $number match number
 	
-	# if number is real and mod(number)<1, then we have pulled off the leading zero; i.e. 0.231 -> .231 -- this is still fine for tcl though...
-	# Last pathological case
+	# if number is real and mod(number)<1, then we have pulled off
+	# the leading zero; i.e. 0.231 -> .231 -- this is still fine
+	# for Tcl though...
+
+        # Last pathological case
 	if {"." eq $number } {
 	    set number 0
 	}
@@ -305,7 +308,7 @@
         return ""
     }
 
-    if { (![info exists locale] || $locale eq "") } {
+    if { $locale eq "" } {
         set locale [ad_conn locale]
     }