From 78de51ca7f24bbf38b8c7b87c6896136f9483c66 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 25 Nov 2006 15:42:41 +0000
Subject: [PATCH] Patch for procedure LoadObjectFromStream() from Martin Smat.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@39 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_binary_formatter.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wst/trunk/base_binary_formatter.pas b/wst/trunk/base_binary_formatter.pas
index 53f814b3e..651fa8dab 100644
--- a/wst/trunk/base_binary_formatter.pas
+++ b/wst/trunk/base_binary_formatter.pas
@@ -556,7 +556,7 @@ Begin
     Result := CreateObjBuffer(TDataType(i),s);
   Case TDataType(i) Of
     dtInt8S   : Result^.Int8S := AStoreRdr.ReadInt8S();
-    dtInt8U   : Result^.Int8S := AStoreRdr.ReadInt8U();
+    dtInt8U   : Result^.Int8U := AStoreRdr.ReadInt8U();
     dtInt16U  : Result^.Int16U := AStoreRdr.ReadInt16U();
     dtInt16S  : Result^.Int16S := AStoreRdr.ReadInt16S();
     dtInt32U  : Result^.Int32U := AStoreRdr.ReadInt32U();