~ chicken-core (chicken-5) a8b1663f131c8cea394b70d7c3bc888982db09c8

commit a8b1663f131c8cea394b70d7c3bc888982db09c8
Author:     unknown <felix@.(none)>
AuthorDate: Fri Oct 30 09:49:15 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Nov 21 12:40:45 2009 +0100

    fixed bug in get-condition-property
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/library.scm b/library.scm
index 0648cc96..6f34aa18 100644
--- a/library.scm
+++ b/library.scm
@@ -3795,7 +3795,7 @@ EOF
 (define get-condition-property
   (let ((condition-property-accessor condition-property-accessor))
     (lambda (c kind prop . err-def)
-      (apply (condition-property-accessor kind prop err-def) c))))
+      ((condition-property-accessor kind prop err-def) c))))
 
 
 ;;; Error hook (called by runtime-system):