diff --git a/collects/mzlib/private/getter-setter.scm b/collects/mzlib/private/getter-setter.scm
index a2a70a6219..ca1acb9ebb 100644
--- a/collects/mzlib/private/getter-setter.scm
+++ b/collects/mzlib/private/getter-setter.scm
@@ -73,8 +73,9 @@
                                 (let ((x #,(subst-bindings (syntax exp)
                                                            let-bound)))
                                   (lambda (y)
-                                    (#,(mk-setter 
-                                        (syntax-object->datum (syntax acc)))
+                                    (#,(datum->syntax-object #'acc
+                                                             (mk-setter 
+                                                              (syntax-object->datum (syntax acc))))
                                        x y)))))))))))
   
   ;;!(function getter
diff --git a/collects/mzlib/private/test-structure.scm b/collects/mzlib/private/test-structure.scm
index baa36e9c3c..94a1456ad3 100644
--- a/collects/mzlib/private/test-structure.scm
+++ b/collects/mzlib/private/test-structure.scm
@@ -31,6 +31,10 @@
   ;;            of bind-exp-stx
   ;; bind-count - is the number of times in the bind-exp is found in the
   ;;              test list in which this test is a member
+  ;; times-used-neg - ??? (this appears to never be used)
+  ;; used-set-neg - ???
+  ;; closest-shape-tst - ???
+  ;; equal-set - ???
   (define-struct test (tst
                        comp
                        shape
@@ -43,7 +47,7 @@
                        used-set-neg
                        closest-shape-tst
                        equal-set)
-    (make-inspector))
+    #f)
   
   ;;!(function make-shape-test
   ;;          (form (make-shape-test test exp comp) -> test-struct)