diff --recursive --unified rt-3.8.2/etc/RT_Config.pm rt-3.8.2-patched/etc/RT_Config.pm
--- rt-3.8.2/etc/RT_Config.pm   Wed Jan  7 09:16:38 2009
+++ rt-3.8.2-patched/etc/RT_Config.pm   Wed Jan 21 11:45:05 2009
@@ -1186,6 +1186,20 @@

 =back

+=item C<@TicketCloneFields>
+
+Use this to define the values that will be inherited by a ticket created using
+any of the "Create" links that appear in a ticket's "Links" section.  Fields
+can include any of the values from the Ticket object.  Default list is Owner,
+Subject, FinalPriority, TimeEstimated, TimeWorked, Status, TimeLeft, Starts,
+Started, Due and Resolved.
+
+=cut
+
+Set (@TicketCloneFields, (qw(Owner Subject FinalPriority TimeEstimated TimeWorked Status TimeLeft Starts Started Due Resolved)));
+
+= back
+
 =head1 L<Net::Server> (rt-server) Configuration

 =over 4
diff --recursive --unified rt-3.8.2/etc/RT_Config.pm.in rt-3.8.2-patched/etc/RT_Config.pm.in
--- rt-3.8.2/etc/RT_Config.pm.in        Tue Jan  6 19:15:35 2009
+++ rt-3.8.2-patched/etc/RT_Config.pm.in        Wed Jan 21 11:43:39 2009
@@ -1186,6 +1186,20 @@

 =back

+=item C<@TicketCloneFields>
+
+Use this to define the values that will be inherited by a ticket created using
+any of the "Create" links that appear in a ticket's "Links" section.  Fields
+can include any of the values from the Ticket object.  Default list is Owner,
+Subject, FinalPriority, TimeEstimated, TimeWorked, Status, TimeLeft, Starts,
+Started, Due and Resolved.
+
+=cut
+
+Set (@TicketCloneFields, (qw(Owner Subject FinalPriority TimeEstimated TimeWorked Status TimeLeft Starts Started Due Resolved)));
+
+= back
+
 =head1 L<Net::Server> (rt-server) Configuration

 =over 4
diff --recursive --unified rt-3.8.2/share/html/Ticket/Create.html rt-3.8.2-patched/share/html/Ticket/Create.html
--- rt-3.8.2/share/html/Ticket/Create.html      Tue Jan  6 19:15:22 2009
+++ rt-3.8.2-patched/share/html/Ticket/Create.html      Wed Jan 21 10:30:00 2009
@@ -263,9 +263,7 @@
         InitialPriority => $CloneTicketObj->Priority,
     };

-    $clone->{$_} = $CloneTicketObj->$_()
-        for qw/Owner Subject FinalPriority TimeEstimated TimeWorked
-                Status TimeLeft Starts Started Due Resolved/;
+    $clone->{$_} = $CloneTicketObj->$_() for RT->Config->Get('TicketCloneFields',  $session{'CurrentUser'});

         my $members = $CloneTicketObj->Members;
         my ( @members, @members_of, @refers, @refers_by, @depends, @depends_by );