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.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	3 Oct 2001 01:56:56 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	3 Oct 2001 21:11:00 -0000	1.4
@@ -55,6 +55,8 @@
 	    # insert the class into the DB
 	    db_dml insert_class {}
 	}
+
+	return $class_group_type_key
     }