Index: lex-sre.ss =================================================================== --- lex-sre.ss (revision 1805) +++ lex-sre.ss (working copy) @@ -81,7 +81,7 @@ "must have at least one argument" stx)) ((_ big-re re ...) - (syntax (intersect big-re (~ (union re) ...)))))) + (syntax (intersection big-re (complement (union re ...))))))) (define-lex-trans (sre-/ stx) (syntax-case stx ()