Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	20 Aug 2001 21:52:31 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	20 Apr 2004 21:12:58 -0000	1.4
@@ -74,7 +74,7 @@
 	if { [empty_string_p $group_type] } {
 	    # generate a unique group type name. Note that we expect
 	    # the while loop to finish immediately
-	    while { [empty_string_p $group_type] || ![plsql_utility::object_type_exists_p $group_type] } {
+	    while { [empty_string_p $group_type] || [plsql_utility::object_type_exists_p $group_type] } {
 		set group_type "GROUP_[db_nextval "acs_object_id_seq"]"
 	    }
 	} else {