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 ()
