--- a/vehicle.c	Wed Nov 08 12:28:57 2006 +0000
+++ b/vehicle.c	Wed Nov 08 17:44:17 2006 +0000
@@ -1851,6 +1851,10 @@
 		// 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;
 }