Fix copying of ACCESS.

diff --git a/src/sf/copy.scm b/src/sf/copy.scm
index 20162f9b557ef24e41959c73288c724c9f6b3ba0..97b804dd5cb14c9ec68a164e83db5e1ef72e2f66 100644 (file)
--- a/src/sf/copy.scm
+++ b/src/sf/copy.scm
@@ -171,12 +171,16 @@ USA.
 \f
 (define-method/copy 'ACCESS
   (lambda (block environment expression)
-    (access/make (access/scode expression)
-                (access/block expression)
-                (copy/expression block
-                                 environment
-                                 (access/environment expression))
-                (access/name expression))))
+    (call-with-values
+       (lambda ()
+         (copy/block block environment (access/block expression)))
+      (lambda (block environment)
+       (access/make (access/scode expression)
+                    block
+                    (copy/expression block
+                                     environment
+                                     (access/environment expression))
+                    (access/name expression))))))
 
 (define-method/copy 'ASSIGNMENT
   (lambda (block environment expression)