From 6a2583c43f806145277dad256b829f6cd4753d6c Mon Sep 17 00:00:00 2001
From: peter1138 <peter1138@openttd.org>
Date: Wed, 8 Nov 2006 17:44:17 +0000
Subject: [PATCH] (svn r7115) -Fix [FS#371]: Cloning a vehicle that has been
 refitted would incur the expense as running costs, not new vehicles.

---
 vehicle.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/vehicle.c b/vehicle.c
index 353c4b2938..8d202c8d1e 100644
--- a/vehicle.c
+++ b/vehicle.c
@@ -1851,6 +1851,10 @@ int32 CmdCloneVehicle(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
 		// for trains this needs to be the front engine due to the callback function
 		_new_vehicle_id = w_front->index;
 	}
+
+	/* Set the expense type last as refitting will make the cost go towards
+	 * running costs... */
+	SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES);
 	return total_cost;
 }