diff --git a/src/util/fairland.c b/src/util/fairland.c
index 22a95392..8da3c3e6 100644
--- a/src/util/fairland.c
+++ b/src/util/fairland.c
@@ -315,7 +315,7 @@ static void allocate_memory(void);
 static void init(void);
 static int drift(void);
 static int stable(int);
-static void fl_move(int);
+static void drift_capital(int);
 static int grow_continents(void);
 static int grow_islands(void);
 static void create_elevations(void);
@@ -682,7 +682,7 @@ drift(void)
 	if (stable(turns))
 	    return 1;
 	for (i = 0; i < nc; ++i)
-	    fl_move(i);
+	    drift_capital(i);
     }
     return 0;
 }
@@ -719,11 +719,13 @@ stable(int turns)
     return stab;
 }
 
-/* This routine does the actual drifting
+/*
+ * Drift capital @j.
+ * Move it to an adjacent sector where it is at least as isolated.
 */
 
 static void
-fl_move(int j)
+drift_capital(int j)
 {
     int dir, i, newx, newy;