Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	22 Aug 2004 22:43:44 -0000	1.1.2.6
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	22 Aug 2004 22:54:33 -0000	1.1.2.7
@@ -621,7 +621,7 @@
                         }
                     } else {
                         # there is no previous entry in the database         
-                        db_1row get_new_option_map_id { select nextval('contact_attribute_option_map_id_seq') as option_map_id }
+                        db_1row get_new_option_map_id {}
 
                         foreach option_id $attribute_value_temp {
                             if {![empty_string_p $option_id]} {