fix bug in `apply' expansion

collects/racket/private/pre-base.rkt

@@ -49,10 +49,11 @@
                                           (ormap (lambda (x) (keyword? (syntax-e x))) l)
                                           #t)
                                       'new-apply-proc
-                                      'apply)])
+                                      'apply)]
+                           [(fst) (car (syntax-e stx))])
                 (datum->syntax
                  stx
-                 (cons (datum->syntax here app (car l) (car l))
+                 (cons (datum->syntax here app fst fst)
                        (cdr (syntax-e stx)))
                  stx
                  stx)))))))

collects/tests/racket/syntax.rktl

@@ -77,6 +77,7 @@
 
 (test 12 (if #f + *) 3 4)
 (syntax-test #'(+ 3 . 4))
+(syntax-test #'(apply + 1 . 2))
 
 (test 8 (lambda (x) (+ x x)) 4)
 (define reverse-subtract