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.39.2.3 -r1.39.2.4
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	28 Nov 2003 12:10:41 -0000	1.39.2.3
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	25 Feb 2004 21:46:39 -0000	1.39.2.4
@@ -883,7 +883,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) {