diff -r a299cab0927e -r 64d2f7d5f02b clear_cmd.c
--- a/clear_cmd.c	Tue Jan 04 17:04:10 2005 +0000
+++ b/clear_cmd.c	Tue Jan 04 17:11:03 2005 +0000
@@ -330,6 +330,8 @@
 	uint tile;
 	int32 ret, cost, money;
 
+	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
 	// remember level height
 	h = _map_type_and_height[p1]&0xF;