diff --git a/piclib/srfi/17.scm b/piclib/srfi/17.scm
index 5b3c019d..eb02e66e 100644
--- a/piclib/srfi/17.scm
+++ b/piclib/srfi/17.scm
@@ -24,7 +24,7 @@
                       (error "No setter found")))))
              (set-setter!
               (lambda (proc setter)
-                (dictionary-set! (attribute proc) 'setter setter))))
+                (dictionary-set! (attribute proc) '@@setter setter))))
       (set-setter! setter set-setter!)
       setter))