diff --git a/scheme/expect.scm b/scheme/expect.scm
index 2cf9d30..f4dab9f 100644
--- a/scheme/expect.scm
+++ b/scheme/expect.scm
@@ -373,15 +373,15 @@
 		 (lambda () exp)
 		 (lambda (v) (proc v)))
 	   (expect-action-clauses clause ...)))
+    ((expect-action-clauses (else body ...) clause ...)
+     (cons (list 'else (lambda () body ...))
+	   (expect-action-clauses clause ...)))
     ((expect-action-clauses (pattern () body ...) clause ...)
      (expect-action-clauses (pattern (ignore) body ...) clause ...))
     ((expect-action-clauses (pattern (m mvars ...) body ...) clause ...)
      (cons (list 'match (lambda () pattern)
 		 (lambda (m)
 		   (let-match m (mvars ...) body ...)))
-	   (expect-action-clauses clause ...)))
-    ((expect-action-clauses (else body ...) clause ...)
-     (cons (list else (lambda () body ...))
 	   (expect-action-clauses clause ...)))))
 
 (define-syntax expect-clauses