Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/www/contact-add.tcl	14 Jun 2005 11:46:24 -0000	1.14
+++ openacs-4/packages/contacts/www/contact-add.tcl	15 Jun 2005 03:45:09 -0000	1.15
@@ -227,7 +227,7 @@
 	} else {
 	    
 	    # Initialize Party Entry for organization
-	    set party_id [organizations::new -organization_id $party_id -name $name]
+	    set party_id [organization::new -organization_id $party_id -name $name]
 
 	    foreach group_id $group_ids {
 		if {![empty_string_p $group_id]} {