Index: openacs-4/packages/forums/lib/forums/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/new.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/forums/lib/forums/new.tcl	2 Mar 2004 15:53:46 -0000	1.2
+++ openacs-4/packages/forums/lib/forums/new.tcl	13 May 2004 14:06:23 -0000	1.2.2.1
@@ -9,6 +9,10 @@
 
 }
 
+if { ![info exists name] } {
+    set name {}
+}
+
 set package_id [ad_conn package_id]
 
 form create forum
@@ -51,6 +55,7 @@
     set forum_id [db_nextval acs_object_id_seq]
     element set_properties forum forum_id -value $forum_id
     element set_value forum new_threads_p 1
+    element set_value forum name $name
 }
 
 if {[exists_and_not_null alt_template]} {