.

original commit: 8758bfb5141aecf690d0a3e842a05ed89f65bac9

collects/tests/mzscheme/unit.ss

@@ -223,7 +223,7 @@
 	      (M x v struct:a y x? make-x x-z both))])
     (export)))
 
-  (test (string-append "(5 #<struct:a> #<struct-type> (proc: y)"
+  (test (string-append "(5 #<struct:a> #<struct-type:a> (proc: y)"
 		       " (proc: make-x) (proc: x?)"
 		       " (proc: x-z) (proc: both))"
 		       "(5 #t #<struct:a> #t #f #<struct:x> #t #t #f #t)")

collects/tests/mzscheme/unitsig.ss

@@ -265,7 +265,7 @@
    (import)
 
    (define x 5)
-   (define-struct (a (current-inspector)) (b c))
+   (define-struct a (b c) (make-inspector))
    (define v (make-a 5 6))
    (define (y v) (a? v))))
 
@@ -326,10 +326,10 @@
 				  p)))
 		      M@)])
       (export)))
-    (test (string-append "(5 #(struct:a 5 6) #<struct-type> (proc: y)"
+    (test (string-append "(5 #(struct:a 5 6) #<struct-type:a> (proc: y)"
 			 " (proc: make-x) (proc: x?)"
 			 " (proc: x-z) (proc: both) (proc: a?))"
-			 "(5 #t #(struct:a 5 6) #t #f #(struct:x 1 2 3 4) #t #t #f #t)")
+			 "(5 #t #(struct:a 5 6) #t #f #(struct:x 1 2 ...) #t #t #f #t)")
 	  get-output-string p)))
 
 (test 5 'let-sig