CHICKEN
(c)2008-2011 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 4.7.0.3-st 
linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
compiled 2011-10-11 on ubuntu (Linux)

#;1> (define-record foo a (setter b))
#;2> (define x (make-foo 'a 'b))
#;3> (foo-a-set! x 1)
#;4> (foo-b-set! x 2)

Error: unbound variable: foo-b-set!

	Call history:

	<syntax>	  (foo-b-set! x 2)
	<eval>	  (foo-b-set! x 2)	<--