diff --git a/html-src/rules/vincent.html b/html-src/rules/vincent.html
new file mode 100644
index 00000000..235b1f50
--- /dev/null
+++ b/html-src/rules/vincent.html
@@ -0,0 +1,14 @@
+<h1>Vincent</h1>
+<p>
+Fan type. 1 deck. No redeals.
+
+<h3>Object</h3>
+<p>
+Move all cards to the foundations.
+
+<h3>Quick Description</h3>
+<p>
+Like <a href="bristol.html">Bristol</a>,
+but tableau piles are built down by same suit, and sequences of
+cards can be moved together and kings can be played to empty
+piles.  Foundations are built up by the same suit.
diff --git a/pysollib/gamedb.py b/pysollib/gamedb.py
index 4059976e..e4f80dc4 100644
--- a/pysollib/gamedb.py
+++ b/pysollib/gamedb.py
@@ -594,7 +594,7 @@ class GI:
         ('fc-2.20', tuple(range(855, 897))),
         ('fc-2.21', tuple(range(897, 900)) + tuple(range(11014, 11017)) +
          tuple(range(13160, 13163)) + (16682,)),
-        ('dev', tuple(range(906, 949)) + tuple(range(11017, 11020)) +
+        ('dev', tuple(range(906, 950)) + tuple(range(11017, 11020)) +
          tuple(range(5600, 5624)) + tuple(range(18000, 18005)) +
          tuple(range(22303, 22311)) + tuple(range(22353, 22361))),
     )
diff --git a/pysollib/games/bristol.py b/pysollib/games/bristol.py
index d2229370..55ac97f0 100644
--- a/pysollib/games/bristol.py
+++ b/pysollib/games/bristol.py
@@ -72,6 +72,10 @@ class Bristol_Talon(TalonStack):
 
 
 class Bristol(Game):
+    RowStack_Class = StackWrapper(
+        RK_RowStack, base_rank=NO_RANK, max_move=1)
+    Foundation_Class = RK_FoundationStack
+
     Hint_Class = Bristol_Hint
 
     #
@@ -88,13 +92,15 @@ class Bristol(Game):
         # create stacks
         x, y, = l.XM + 3*l.XS, l.YM
         for i in range(4):
-            s.foundations.append(RK_FoundationStack(x, y, self, max_move=0))
+            s.foundations.append(self.Foundation_Class(x, y,
+                                                       self, max_move=0,
+                                                       suit=i))
             x += l.XS
         for i in range(2):
             y = l.YM + (i*2+3)*l.YS//2
             for j in range(4):
                 x = l.XM + (j*5)*l.XS//2
-                stack = RK_RowStack(x, y, self,  base_rank=NO_RANK, max_move=1)
+                stack = self.RowStack_Class(x, y, self)
                 stack.CARD_XOFFSET, stack.CARD_YOFFSET = l.XOFFSET, 0
                 s.rows.append(stack)
         x, y, = l.XM + 3*l.XS, l.YM + 4*l.YS
@@ -145,6 +151,15 @@ class Bristol(Game):
     shallHighlightMatch = Game._shallHighlightMatch_RK
 
 
+# ************************************************************************
+# * Vincent
+# ************************************************************************
+
+class Vincent(Bristol):
+    RowStack_Class = StackWrapper(SS_RowStack, base_rank=KING)
+    Foundation_Class = SS_FoundationStack
+
+
 # ************************************************************************
 # * Belvedere
 # ************************************************************************
@@ -514,3 +529,5 @@ registerGame(GameInfo(519, Gotham, "Gotham",
                       GI.GT_FAN_TYPE, 2, 0, GI.SL_BALANCED))
 registerGame(GameInfo(604, Interment, "Interment",
                       GI.GT_FAN_TYPE, 2, 0, GI.SL_BALANCED))
+registerGame(GameInfo(949, Vincent, "Vincent",
+                      GI.GT_FAN_TYPE, 1, 0, GI.SL_MOSTLY_SKILL))