8460e593e45b120563cab8559770b3cfb2993c0b
diff --git a/aisleriot/rules/backbone.scm b/aisleriot/rules/backbone.scm
index 43d0830..b702de0 100644
--- a/aisleriot/rules/backbone.scm
+++ b/aisleriot/rules/backbone.scm
@@ -182,6 +182,12 @@
        (is-legal-move? start-slot card-list end-slot)
        (complete-transaction start-slot card-list end-slot)))
 
+(define (dealable?)
+  (flippable? stock 1))
+
+(define (do-deal-next-cards)
+  (flip-stock stock waste 1 1))
+
 (define (button-clicked start-slot)
   (and (= start-slot stock)
        (flip-stock stock waste 1 1)))
@@ -283,6 +289,6 @@
 
 (define (timeout) #f)
 
-(set-features droppable-feature)
+(set-features droppable-feature dealable-feature)
 
-(set-lambda new-game button-pressed button-released button-clicked button-double-clicked game-over game-won get-hint get-options apply-options timeout is-legal-move?)
+(set-lambda new-game button-pressed button-released button-clicked button-double-clicked game-over game-won get-hint get-options apply-options timeout is-legal-move? dealable?)
