--- lib/Grep/Search.pm	2007/02/23 09:54:28	72
+++ lib/Grep/Search.pm	2007/02/23 17:17:50	76
@@ -175,6 +175,7 @@
 	undef $hits;
 	undef $query;
 	undef $parser;
+	$searcher->close;
 	undef $searcher;
 
 	return $collection;
@@ -191,8 +192,8 @@
 	if ($writer) {
 		warn "closing index\n";
 		$writer->close;
+		undef $writer;
 	}
-	undef $writer;
 	undef $store;
 	undef $create;