Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	17 Feb 2004 15:36:27 -0000	1.46
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	26 Feb 2004 15:28:54 -0000	1.47
@@ -913,7 +913,7 @@
                     }
 
                     if { ![uplevel #$level [list db_0or1row $select_query_name [join $select_query " "] -column_array __ad_form_values__]] } {
-                        return -code error "Error when selecting values"
+                        return -code error "Error when selecting values: No rows returned."
                     }
 
                     foreach element_name $af_element_names($form_name) {