Index: oup/current/Global/OniImgClass.pas
===================================================================
--- oup/current/Global/OniImgClass.pas	(revision 123)
+++ oup/current/Global/OniImgClass.pas	(revision 124)
@@ -590,8 +590,13 @@
   x, y: Word;
   bpp:  Byte;
-begin
+  minside: Byte;
+begin
+  minside := 1;
   case Self.FStoreType of
     9:
-      bpp := 8;
+    begin
+      bpp := 4;
+      minside := 4;
+    end;
     0, 1, 2:
       bpp := 16;
@@ -612,5 +617,5 @@
       y    := y div 2;
       size := size + (x * y * bpp) div 8;
-    until (x = 1) or (y = 1);
+    until (x = minside) or (y = minside);
   end;
   Result := size;
Index: oup/current/Global/RawList.pas
===================================================================
--- oup/current/Global/RawList.pas	(revision 123)
+++ oup/current/Global/RawList.pas	(revision 124)
@@ -314,4 +314,5 @@
   mipmap:    Byte;
   bpp:       Byte;
+  minside:   Byte;
 begin
   ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, SizeOf(mipmap), @mipmap);
@@ -323,14 +324,15 @@
 
 
+  minside := 1;
   case storetype of
     0, 1, 2:
       bpp := 16;
-//      datasize := x * y * 2;
     8:
       bpp := 32;
-//      datasize := x * y * 4;
     9:
+    begin
       bpp := 4;
-//      datasize := x * y div 2;
+      minside := 4;
+    end;
   end;
 
@@ -342,5 +344,5 @@
       y    := y div 2;
       datasize := datasize + (x * y * bpp) div 8;
-    until (x = 1) or (y = 1);
+    until (x = minside) or (y = minside);
   end;
 
Index: oup/current/Global/TypeDefs.pas
===================================================================
--- oup/current/Global/TypeDefs.pas	(revision 123)
+++ oup/current/Global/TypeDefs.pas	(revision 124)
@@ -115,4 +115,5 @@
   end;
 
+
   TLinkByName = record
       SrcOffset: Integer;