1 files changed, 1 insertions, 2 deletions
diff --git a/test.scm b/test.scm
index 40e2c321..87d0f9b2 100755
--- a/test.scm
+++ b/test.scm
@@ -13,8 +13,7 @@
 
 (define cal (make-vcomponent "testcal/repeating-event.ics"))
 
-(define ev (find (lambda (ev) (eq? 'VEVENT (type ev)))
-                 (children cal)))
+(define ev (car (children cal 'VEVENT)))
 
 (define ev-copy (copy-vcomponent ev))