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.66 -r1.67
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	4 Mar 2004 14:52:49 -0000	1.66
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	12 Mar 2004 18:48:55 -0000	1.67
@@ -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
 }