diff --git a/ice-9/r4rs.scm b/ice-9/r4rs.scm
index c820ffbc0..6dff2a616 100644
--- a/ice-9/r4rs.scm
+++ b/ice-9/r4rs.scm
@@ -28,6 +28,8 @@
 (set-procedure-property! apply 'name 'apply)
 (define (call-with-current-continuation proc)
   (@call-with-current-continuation proc))
+(define (call-with-values producer consumer)
+  (@call-with-values producer consumer))
 
 
 ;;;; Basic Port Code