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.21 -r1.22
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	15 Jul 2005 21:01:52 -0000	1.21
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	19 Jul 2005 16:02:08 -0000	1.22
@@ -25,7 +25,9 @@
         set package_id [ad_conn package_id]
     }
 #    return [db_string get_default_group {select group_id from contact_groups where package_id = :package_id and default_p} -default {}]
-    return [db_string get_default_group {select group_id from application_groups where package_id = :package_id } -default {}]
+#    return [db_string get_default_group {select group_id from
+# application_groups where package_id = :package_id } -default {}]
+    return "-2"
 }
 
 ad_proc -private contact::util::generate_filename {