--- a/road_cmd.c	Tue Jan 04 17:04:10 2005 +0000
+++ b/road_cmd.c	Tue Jan 04 17:11:03 2005 +0000
@@ -494,6 +494,8 @@
 	int mode;
 	int32 cost,ret;
 
+	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
 	start_tile = p1;
 	end_tile = TILE_FROM_XY(x, y);
 
@@ -545,6 +547,8 @@
 	uint start_tile, end_tile, tile;
 	int32 cost,ret;
 
+	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
 	start_tile = p1;
 	end_tile = TILE_FROM_XY(x, y);