diff --git a/html-src/rules/ceilingfan.html b/html-src/rules/ceilingfan.html
new file mode 100644
index 00000000..d250ba11
--- /dev/null
+++ b/html-src/rules/ceilingfan.html
@@ -0,0 +1,12 @@
+<h1>Ceiling Fan</h1>
+<p>
+Fan game type. 1 deck. No redeal.
+
+<h3>Object</h3>
+<p>
+Move all cards to the foundations.
+
+<h3>Quick Description</h3>
+<p>
+Like <a href="fan.html">Fan</a>,
+but piles are built down by alternate color.
diff --git a/html-src/rules/fan.html b/html-src/rules/fan.html
index f9f9d38f..6eaf2868 100644
--- a/html-src/rules/fan.html
+++ b/html-src/rules/fan.html
@@ -8,9 +8,15 @@ Move all cards to the foundations.
 
 <h3>Rules</h3>
 <p>
+Cards are dealt to 18 piles - 17 with three cards
+and the last one with one.
+<p>
 The 18 piles build down by suit.
 Only one card can be moved at a time, and
 empty piles can be filled with a King only.
+<p>
+The foundations are built up by same suit.  The
+game is won if all cards are moved to the foundations.
 
 <h3>Strategy</h3>
 <p>
diff --git a/pysollib/gamedb.py b/pysollib/gamedb.py
index 0585659b..f27ef57b 100644
--- a/pysollib/gamedb.py
+++ b/pysollib/gamedb.py
@@ -548,7 +548,7 @@ class GI:
          tuple(range(22217, 22219))),
         ('fc-2.14', tuple(range(811, 827))),
         ('fc-2.15', tuple(range(827, 855)) + tuple(range(22400, 22407))),
-        ('dev', tuple(range(855, 871)))
+        ('dev', tuple(range(855, 872)))
     )
 
     # deprecated - the correct way is to or a GI.GT_XXX flag
diff --git a/pysollib/games/fan.py b/pysollib/games/fan.py
index 78740b63..e0e14514 100644
--- a/pysollib/games/fan.py
+++ b/pysollib/games/fan.py
@@ -138,6 +138,10 @@ class FanGame(Fan):
     Solver_Class = FreeCellSolverWrapper(preset='fan')
 
 
+class CeilingFan(Fan):
+    RowStack_Class = KingAC_RowStack
+
+
 # ************************************************************************
 # * Scotch Patience
 # ************************************************************************
@@ -1097,3 +1101,5 @@ registerGame(GameInfo(819, BearRiver, "Bear River",
                       GI.GT_FAN_TYPE | GI.GT_OPEN, 1, 0, GI.SL_MOSTLY_SKILL))
 registerGame(GameInfo(834, RainbowFan, "Rainbow Fan",
                       GI.GT_FAN_TYPE, 2, 3, GI.SL_MOSTLY_SKILL))
+registerGame(GameInfo(871, CeilingFan, "Ceiling Fan",
+                      GI.GT_FAN_TYPE | GI.GT_OPEN, 1, 0, GI.SL_MOSTLY_SKILL))