Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.59 -r1.60
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Jun 2005 06:51:53 -0000	1.59
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Jun 2005 14:54:52 -0000	1.60
@@ -1095,7 +1095,12 @@
         while { [db_getrow $db $selection] } {
             set this_result [list]
             for { set i 0 } { $i < [ns_set size $selection] } { incr i } {
-		lappend this_result [lang::util::localize [ns_set value $selection $i]]
+		set result_value [ns_set value $selection $i]
+		if {[string match "#*#" $result_value]} {
+		    lappend this_result [lang::util::localize $result_value]
+		} else {
+		    lappend this_result $result_value
+		}
             }
             lappend result $this_result
         }