diff --git a/scheme/interact.scm b/scheme/interact.scm
index 49d3b7b..9f09f93 100644
--- a/scheme/interact.scm
+++ b/scheme/interact.scm
@@ -113,12 +113,14 @@
 	 (else (error "Only character-patterns are supported."))))))
 
 (define-syntax interact-clauses
-  (syntax-rules (timeout)
+  (syntax-rules (timeout eof)
     ((interact-clauses) (cons #f '()))
     ((interact-clauses (timeout secs handler) rest ...)
      (let ((r (interact-clauses rest ...)))
        (cons (cons secs handler)
 	     (cdr r))))
+    ((interact-clauses (eof (flag ...) body ...) rest ...)
+     (interact-clauses (eof-pattern (flag ...) (cont ignore) body ...) rest ...))
     ((interact-clauses (rx (flag ...) (cont match mvar ...) body ...) rest ...)
      (let ((r (interact-clauses rest ...)))
        (cons (car r)