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.8 -r1.9
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	6 Mar 2002 22:35:15 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	16 Mar 2002 17:38:08 -0000	1.9
@@ -50,4 +50,10 @@
         </querytext>
     </fullquery>
 
+<fullquery name="dotlrn_class::check_class_key_valid_p.collision_check">
+<querytext>
+select 1 from dotlrn_classes where dotlrn_classes.class_key = :class_key
+</querytext>
+</fullquery>
+
 </queryset>