diff -r 0fb5c1511962 src/lang/english.txt
--- a/src/lang/english.txt	Mon Dec 22 09:29:35 2008 +0100
+++ b/src/lang/english.txt	Mon Dec 22 09:32:55 2008 +0100
@@ -487,7 +487,8 @@
 STR_01A2_IS_GETTING_VERY_OLD_AND                                :{WHITE}{STRING} {COMMA} is getting very old and urgently needs replacing
 STR_01A3_LAND_AREA_INFORMATION                                  :{WHITE}Land Area Information
 STR_01A4_COST_TO_CLEAR_N_A                                      :{BLACK}Cost to clear: {LTBLUE}N/A
-STR_01A5_COST_TO_CLEAR                                          :{BLACK}Cost to clear: {LTBLUE}{CURRENCY}
+STR_01A5_COST_TO_CLEAR                                          :{BLACK}Cost to clear: {RED}{CURRENCY}
+STR_PROFIT_TO_CLEAR                                             :{BLACK}Profit to clear: {LTBLUE}{CURRENCY}
 STR_01A6_N_A                                                    :N/A
 STR_01A7_OWNER                                                  :{BLACK}Owner: {LTBLUE}{STRING1}
 STR_ROAD_OWNER                                                  :{BLACK}Road owner: {LTBLUE}{STRING1}
diff -r 0fb5c1511962 src/misc_gui.cpp
--- a/src/misc_gui.cpp	Mon Dec 22 09:29:35 2008 +0100
+++ b/src/misc_gui.cpp	Mon Dec 22 09:32:55 2008 +0100
@@ -156,11 +156,17 @@
 			line_nr++;
 		}
 
-		/* Cost to clear */
+		/* Cost/profit to clear */
 		StringID str = STR_01A4_COST_TO_CLEAR_N_A;
 		if (CmdSucceeded(costclear)) {
-			SetDParam(0, costclear.GetCost());
-			str = STR_01A5_COST_TO_CLEAR;
+			Money cost = costclear.GetCost();
+			if (cost < 0) {
+				cost = -cost;  // Negate negative cost to a positive profit
+				str = STR_PROFIT_TO_CLEAR;
+			} else
+				str = STR_01A5_COST_TO_CLEAR;
+
+			SetDParam(0, cost);
 		}
 		GetString(this->landinfo_data[line_nr], str, lastof(this->landinfo_data[line_nr]));
 		line_nr++;