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.47 -r1.47.6.1
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	22 Sep 2003 18:31:41 -0000	1.47
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	26 May 2004 15:36:03 -0000	1.47.6.1
@@ -96,6 +96,9 @@
         too.
         
     } {
+
+	set community_type_key "$department_key.$class_key"
+
         if {[db_0or1row collision_check {}]} {
             # got a collision
             return 0
Index: openacs-4/packages/dotlrn/tcl/class-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.xql,v
diff -u -r1.14 -r1.14.10.1
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	14 Aug 2002 19:13:41 -0000	1.14
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	26 May 2004 15:36:03 -0000	1.14.10.1
@@ -57,7 +57,7 @@
         <querytext>
             select 1
             from dotlrn_classes
-            where dotlrn_classes.class_key = :class_key
+            where dotlrn_classes.class_key = :community_type_key
         </querytext>
     </fullquery>