Fixed a minor exposure of annotation records.

scheme/last-revision

@@ -1 +1 @@
-1466
+1467

scheme/psyntax.expander.ss

@@ -545,6 +545,7 @@
       [(pair? x) 
        (cons (strip-annotations (car x))
              (strip-annotations (cdr x)))]
+      [(vector? x) (vector-map strip-annotations x)]
       [(annotation? x) (annotation-stripped x)]
       [else x]))
 
@@ -553,7 +554,9 @@
       (if (top-marked? m*)
           (if (or (annotation? x)
                   (and (pair? x) 
-                       (annotation? (car x))))
+                       (annotation? (car x)))
+                  (and (vector? x) (> (vector-length x) 0)
+                       (annotation? (vector-ref x 0))))
               ;;; TODO: Ask Kent why this is a sufficient test
               (strip-annotations x)
               x)