2533e9b6dadd7431266f97324aa12b0a77fd0254
diff --git a/aisleriot/rules/escalator.scm b/aisleriot/rules/escalator.scm
index 90e1b9b..99034ba 100644
--- a/aisleriot/rules/escalator.scm
+++ b/aisleriot/rules/escalator.scm
@@ -175,6 +175,12 @@
 	      (deal-cards slot-id '(1))))
 	(#t #f)))
 
+(define (dealable?)
+  (not (empty-slot? 0)))
+
+(define (do-deal-next-cards)
+  (play-card 0))
+
 ;; Single-clicking isn't sane in click-to-move more, so we mostly ignore it 
 ;; in that case.
 (define (button-clicked slot-id)
@@ -230,8 +236,8 @@
 (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-continuable game-won get-hint get-options
-apply-options timeout droppable?)
+apply-options timeout droppable? dealable?)
