* Fixed chm bug that stopped the search db fr ever being written to a file

git-svn-id: trunk@15584 -

packages/chm/src/chmfiftimain.pas

@@ -265,7 +265,7 @@ end;
 
 function TChmSearchWriter.GetHasData: Boolean;
 begin
-  Result := FActiveLeafNode <> nil;
+  Result := FWordList.IndexedFileCount > 0;
 end;