From a8862eb77f0c87c970326d53aa1e03bb1f0920de Mon Sep 17 00:00:00 2001
From: smatz <smatz@openttd.org>
Date: Thu, 7 Apr 2011 15:48:13 +0000
Subject: [PATCH] (svn r22297) -Fix [FS#4580]: the 'freeform edges' setting
 could be enabled when there were buoys on the northern border (adf88)

---
 src/settings.cpp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/settings.cpp b/src/settings.cpp
index 0388d35a9a..ad93ce6eaf 100644
--- a/src/settings.cpp
+++ b/src/settings.cpp
@@ -1071,13 +1071,15 @@ static bool CheckFreeformEdges(int32 p1)
 	if (p1 != 0) {
 		Ship *s;
 		FOR_ALL_SHIPS(s) {
+			/* Check if there is a ship on the northern border. */
 			if (TileX(s->tile) == 0 || TileY(s->tile) == 0) {
 				ShowErrorMessage(STR_CONFIG_SETTING_EDGES_NOT_EMPTY, INVALID_STRING_ID, WL_ERROR);
 				return false;
 			}
 		}
-		Station *st;
-		FOR_ALL_STATIONS(st) {
+		BaseStation *st;
+		FOR_ALL_BASE_STATIONS(st) {
+			/* Check if there is a buoy on the northern border. */
 			if (TileX(st->xy) == 0 || TileY(st->xy) == 0) {
 				ShowErrorMessage(STR_CONFIG_SETTING_EDGES_NOT_EMPTY, INVALID_STRING_ID, WL_ERROR);
 				return false;