diff --git a/collects/scheme/private/for.ss b/collects/scheme/private/for.ss
index 9c1b646190..dfc6572828 100644
--- a/collects/scheme/private/for.ss
+++ b/collects/scheme/private/for.ss
@@ -736,7 +736,7 @@
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;  derived `for' syntax
 
-  (define-for-syntax (for-variant-stx stx derived-id-stx fold-bind-stx wrap rhs-wrap combine multi?)
+  (define-for-syntax (for-variant-stx stx derived-id-stx fold-bind-stx wrap rhs-wrap combine)
     (with-syntax ([derived-id derived-id-stx]
                   [fold-bind fold-bind-stx])
       (syntax-case stx ()
@@ -747,9 +747,8 @@
                                          null
                                          (syntax-case (car bs) ()
                                            [[ids rhs]
-                                            (if multi?
-                                                (andmap identifier? (or (syntax->list #'ids) '(#f)))
-                                                (identifier? #'ids))
+                                            (or (identifier? #'ids)
+                                                (andmap identifier? (or (syntax->list #'ids) '(#f))))
                                             (cons #`[ids #,(rhs-wrap #'rhs)]
                                                   (loop (cdr bs)))]
                                            [#:when (cons (car bs)
@@ -757,7 +756,7 @@
                                                               null
                                                               (cons (cadr bs) (loop (cddr bs)))))]
                                            [_
-                                            ;; a syntax error; les the /derived form handle it, and 
+                                            ;; a syntax error; let the /derived form handle it, and 
                                             ;; no need to wrap any more:
                                             bs])))])
            (quasisyntax/loc stx
@@ -769,15 +768,15 @@
 
   (define-syntax define-syntax-via-derived
     (syntax-rules ()
-      [(_ id derived-id fold-bind wrap rhs-wrap combine multi?)
-       (define-syntax (id stx) (for-variant-stx stx #'derived-id #'fold-bind wrap rhs-wrap combine multi?))]))
+      [(_ id derived-id fold-bind wrap rhs-wrap combine)
+       (define-syntax (id stx) (for-variant-stx stx #'derived-id #'fold-bind wrap rhs-wrap combine))]))
   
   (define-syntax define-for-variants
     (syntax-rules ()
       [(_ (for for*) fold-bind wrap rhs-wrap combine)
        (begin
-         (define-syntax-via-derived for for/fold/derived fold-bind wrap rhs-wrap combine #f)
-         (define-syntax-via-derived for* for*/fold/derived fold-bind wrap rhs-wrap combine #f))]))
+         (define-syntax-via-derived for for/fold/derived fold-bind wrap rhs-wrap combine)
+         (define-syntax-via-derived for* for*/fold/derived fold-bind wrap rhs-wrap combine))]))
 
   (define-syntax (for/fold stx)
     (syntax-case stx ()
diff --git a/collects/tests/mzscheme/for.ss b/collects/tests/mzscheme/for.ss
index e3da07d88f..bd1ba2041e 100644
--- a/collects/tests/mzscheme/for.ss
+++ b/collects/tests/mzscheme/for.ss
@@ -145,5 +145,18 @@
       (for/hash ([v (in-hash-values #hash((a . 1) (b . 2) (c . 3)))])
                 (values v v)))
 
+(test 1 'parallel-or-first
+      (for/or (((a b) (in-parallel '(1 #f) '(#t #f)))) 
+              a))
+(test 1 'parallel-or-last
+      (for/or (((a b) (in-parallel '(#f 1) '(#t #f)))) 
+              a))
+(test #f 'parallel-and-first
+      (for/and (((a b) (in-parallel '(1 #f) '(#t #f)))) 
+              a))
+(test #f 'parallel-and-last
+      (for/and (((a b) (in-parallel '(#f 1) '(#t #f)))) 
+              a))
+
 
 (report-errs)