fix errortrace on set! expressions (incorrectly incremented phase in recur)

svn: r10557

collects/errortrace/scribblings/errortrace.scrbl

@@ -356,7 +356,7 @@ During execution of the program, this is called for each point with
 the key for that program point that was passed to
 @schemein[initialize-test-coverage-point].}
 
-@defproc[(initialize-test-coverage-point (key any/c) (stx any)) void?]{
+@defproc[(initialize-test-coverage-point (key any/c) (stx any/c)) void?]{
 
 During compilation of the program, this function is called with each
 sub-expression of the program. The first argument is a special key

collects/errortrace/stacktrace.ss

@@ -461,7 +461,7 @@
               (let ([new-rhs (annotate-named
                               (syntax var)
                               (syntax rhs)
-                              (add1 phase))])
+                              phase)])
                 ;; set! might fail on undefined variable, or too many values:
                 (with-mark expr
                            (certify