From aa37a57b9a991b42f4bfc922b382a09a649f9405 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 3 Oct 2009 19:15:56 -0500
Subject: [PATCH] take the buffer position into account on buffered-port
 stream-tell

---
 basis/io/ports/ports.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index e225bed32f..7ecb420478 100644
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -129,7 +129,8 @@ HOOK: seek-handle os ( n seek-type handle -- )
 
 M: buffered-port stream-tell ( stream -- n )
     [ check-disposed ]
-    [ handle>> tell-handle ] bi ;
+    [ handle>> tell-handle ]
+    [ buffer>> pos>> ] tri + ;
 
 M: input-port stream-seek ( n seek-type stream -- )
     [ check-disposed ]