Index: /trunk/ab5.0/ablib/src/Classes/System/Console.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Console.ab	(revision 685)
+++ /trunk/ab5.0/ablib/src/Classes/System/Console.ab	(revision 686)
@@ -700,4 +700,5 @@
 		End If
 		b.Length = currentBufLength + read
+		Underflow = read <> 0
 	End Function