Index: openacs-4/packages/forums/www/admin/forum-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/forum-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/www/admin/forum-new.tcl	29 May 2002 21:40:11 -0000	1.1
+++ openacs-4/packages/forums/www/admin/forum-new.tcl	30 May 2002 06:25:52 -0000	1.2
@@ -7,6 +7,7 @@
     @creation-date 2002-05-25
     @cvs-id $id: Exp $
 } {
+    {name ""}
 }
 
 # scoping
@@ -56,6 +57,7 @@
 # Pre-fetch the forum_id
 set forum_id [db_nextval acs_object_id_seq]
 element set_properties forum forum_id -value $forum_id
+element set_properties forum name -value $name
 element set_properties forum new_threads_p -value 1
 
 ad_return_template