~ chicken-core (chicken-5) 60f08f41a5b3976a456b5d7e0bfd829d3fb28949

commit 60f08f41a5b3976a456b5d7e0bfd829d3fb28949
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Feb 2 12:05:25 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Feb 2 12:05:25 2012 +0100

    get-condition-property: pass default argument correctly

diff --git a/library.scm b/library.scm
index bc1dbe96..82ed0648 100644
--- a/library.scm
+++ b/library.scm
@@ -4066,7 +4066,7 @@ EOF
 
 (define get-condition-property
   (lambda (c kind prop . err-def)
-    ((condition-property-accessor kind prop err-def) c)))
+    ((apply condition-property-accessor kind prop err-def) c)))
 
 
 ;;; Error hook (called by runtime-system):