Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v diff -u -r1.50 -r1.51 --- openacs-4/packages/dotlrn/tcl/class-procs.tcl 6 Apr 2005 21:21:37 -0000 1.50 +++ openacs-4/packages/dotlrn/tcl/class-procs.tcl 8 Aug 2006 21:26:23 -0000 1.51 @@ -97,11 +97,11 @@ too. } { + if [empty_string_p $community_type_key] { set community_type_key "$department_key.$class_key" } - if {[db_0or1row collision_check {}]} { # got a collision return 0