* fix for case that none of the two indexes are present.

git-svn-id: trunk@13844 -

packages/chm/src/chmreader.pas

@@ -938,7 +938,9 @@ begin
        Result := TChmSiteMap.Create(stIndex);
        Result.LoadFromStream(Index);
        Index.Free;
-     end;
+     end
+    else
+      result:=nil;
 end;
 
 procedure createentry(Name:ansistring;CharIndex:integer;Topic,Title:ansistring);