~ chicken-core (chicken-5) ee844ebd18de4ebbd0ec6d2290e3c711633ccae5

commit ee844ebd18de4ebbd0ec6d2290e3c711633ccae5
Author:     unknown <felix@.(none)>
AuthorDate: Fri Oct 30 09:49:15 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Fri Oct 30 15:39:37 2009 +0100

    fixed bug in get-condition-property

diff --git a/library.scm b/library.scm
index d3cf9344..4b0725a3 100644
--- a/library.scm
+++ b/library.scm
@@ -3694,7 +3694,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):