diff --git a/data-and-control-flow/defsetf.lsp b/data-and-control-flow/defsetf.lsp
index 89d5c58ecf1940e700baa1ff26a8175ec378981b..dc8904b2892110fa22a0ed40979a944823682058 100644
--- a/data-and-control-flow/defsetf.lsp
+++ b/data-and-control-flow/defsetf.lsp
@@ -154,3 +154,14 @@
      (setf (defsetf.6-accessor x) 'c)
      x))
   c (c . b))
+
+
+
+;;; Test that defsetf works with places
+(deftest defsetf.7a
+    (progn
+      (defsetf access-fn (x) (val-1 val-2)
+        `(list ,x ,val-1 ,val-2))
+      (eval (read-from-string
+             "(setf (access-fn 1) (values 2 3))")))
+  (1 2 3))