Index: /Include/Classes/System/IO/Stream.ab
===================================================================
--- /Include/Classes/System/IO/Stream.ab	(revision 251)
+++ /Include/Classes/System/IO/Stream.ab	(revision 252)
@@ -49,5 +49,5 @@
 	Virtual Function ReadByte() As Long
 		Dim b As Byte
-		Dim ret = Read(VarPtr(b), 0, 1)
+		Dim ret = Read(b, 0, 1)
 		If ret <> 0 Then
 			Return b
@@ -62,5 +62,5 @@
 
 	Virtual Sub WriteByte(b As Byte)
-		Write(VarPtr(b), 0, 1)
+		Write(b, 0, 1)
 	End Sub
 Protected