diff -r a9dd5ac5ff11 -r 6d1392a3e0a6 BLIP/BLIPTest.m
--- a/BLIP/BLIPTest.m	Mon May 04 23:21:26 2009 -0700
+++ b/BLIP/BLIPTest.m	Tue Jun 23 13:52:28 2009 -0700
@@ -50,8 +50,10 @@
     SecIdentitySearchRef search;
     SecIdentitySearchCreate(kc, CSSM_KEYUSE_ANY, &search);
     SecIdentityRef identity;
-    while (SecIdentitySearchCopyNext(search, &identity) == noErr)
+    while (SecIdentitySearchCopyNext(search, &identity) == noErr) {
         [identities addObject: (id)identity];
+		CFRelease( identity );
+	}
     CFRelease(search);
     Log(@"Found %u identities -- prompting '%@'", identities.count, prompt);
     if (identities.count > 0) {