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.8 -r1.9
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	7 Nov 2001 22:22:09 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	9 Nov 2001 15:24:57 -0000	1.9
@@ -79,6 +79,9 @@
 	set short_name "$class_type-$term-$year"
 
 	db_transaction {
+	    # Create the portal page
+	    set page_id [portal::create [ad_conn user_id]]
+
 	    # Insert the class instance
 	    set community_id [db_exec_plsql create_class_instance {}]