diff --git a/collects/stepper/private/macro-unwind.rkt b/collects/stepper/private/macro-unwind.rkt
index b418b57ab6..c54814cce3 100644
--- a/collects/stepper/private/macro-unwind.rkt
+++ b/collects/stepper/private/macro-unwind.rkt
@@ -220,7 +220,7 @@
         (label ([(var ...) rhs] ...) . bodies)
         (with-syntax ([(rhs2 ...) (map (lambda (rhs) (unwind rhs settings)) (syntax->list #'(rhs ...)))]
                       [new-bodies (map (lambda (body) (unwind body settings)) (syntax->list #'bodies))])
-          #`(,label ([(var ...) rhs2] ...) . new-bodies))]))
+          #`(label ([(var ...) rhs2] ...) . new-bodies))]))
    
    (define (unwind-local stx settings)
      (kernel-syntax-case stx #f
diff --git a/collects/stepper/private/reconstruct.rkt b/collects/stepper/private/reconstruct.rkt
index d03a6aedd4..5015680f30 100644
--- a/collects/stepper/private/reconstruct.rkt
+++ b/collects/stepper/private/reconstruct.rkt
@@ -682,7 +682,7 @@
                             vars)])
       (if (= (length recon-vals) 1)
           (attach-info #`(define-values #,vars #,(car recon-vals)) exp)
-          (attach-info #'(define-values #,vars (values #,@recon-vals)) exp))))
+          (attach-info #`(define-values #,vars (values #,@recon-vals)) exp))))