Index: openacs-4/packages/acs-object-management/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/form-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-object-management/tcl/form-procs.tcl	22 Feb 2011 17:37:03 -0000	1.5
+++ openacs-4/packages/acs-object-management/tcl/form-procs.tcl	28 Feb 2011 01:26:31 -0000	1.6
@@ -48,7 +48,8 @@
             -array attr
         set value [template::element::get_value $form $attr(view_attribute)]
         if { [llength [info procs ::template::data::to_sql::${attr(datatype)}]] } {
-            set value [template::data::to_sql::${attr(datatype)} $value]
+            set value [db_string q \
+                "select [template::data::to_sql::${attr(datatype)} $value] from dual"]
         } else {
             set value "$value"
         }