--- oup/current/DataAccess/Access_OniArchive.pas	2007/07/17 22:27:16	241
+++ oup/current/DataAccess/Access_OniArchive.pas	2007/08/10 17:26:03	243
@@ -507,7 +507,7 @@ begin
     list := GetRawList(StrToInt(MidStr(dats.Strings[i], 1, 5)));
     for j := 0 to Length(list) - 1 do
     begin
-      if list[j].RawType = RawType then
+      if (list[j].RawType = RawType) and (list[j].RawSize > 0) then
       begin
         SetLength(Result, Length(Result)+1);
         Result[High(Result)] := list[j];