diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 3e9bc5aa6..9a6e7d046 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+Thu Sep 18 01:24:31 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+	* r4rs.scm (apply): Set name property to 'apply.
+
 Tue Sep 16 22:09:50 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
 	* boot-9.scm (keyword->symbol, display-usage-report): Changed
diff --git a/ice-9/r4rs.scm b/ice-9/r4rs.scm
index c0bfd7182..fab737b62 100644
--- a/ice-9/r4rs.scm
+++ b/ice-9/r4rs.scm
@@ -25,6 +25,7 @@
 ;;; procedures, we define them as closures in terms of the primitive
 ;;; macros @apply and @call-with-current-continuation.
 (set! apply (lambda (fun . args) (@apply fun (apply:nconc2last args))))
+(set-procedure-property! apply 'name 'apply)
 (define (call-with-current-continuation proc)
   (@call-with-current-continuation proc))