Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.64 -r1.65
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	11 Dec 2003 21:39:56 -0000	1.64
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	2 Mar 2004 17:01:38 -0000	1.65
@@ -746,6 +746,12 @@
             max_n_values   = :max_n_values
       where parameter_id = :parameter_id
     }
+
+    db_dml object_title_update {
+	update acs_objects
+	set title = :parameter_name
+	where object_id = :parameter_id
+    }
     
     return $parameter_id
 }