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.48 -r1.49
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	29 Apr 2004 15:41:26 -0000	1.48
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	29 Jun 2004 10:17:54 -0000	1.49
@@ -96,6 +96,9 @@
         too.
         
     } {
+
+	set community_type_key "$department_key.$class_key"
+
         if {[db_0or1row collision_check {}]} {
             # got a collision
             return 0