fix buffer-seek

diff --git a/basis/io/buffers/buffers.factor b/basis/io/buffers/buffers.factor
index 11fbbf947c93f03d5ce991dc332e8e56c5ab63e2..bfb6c08471e3784698283e8242d48e892b9f4ec4 100644 (file)
--- a/basis/io/buffers/buffers.factor
+++ b/basis/io/buffers/buffers.factor
@@ -28,7 +28,7 @@ M: buffer dispose* ptr>> free ;
     fill>> zero? ; inline
 
 : buffer-seek ( n buffer -- )
-    (>>pos) ; inline
+    0 >>fill 0 >>pos 2drop ; inline
 
 : buffer-consume ( n buffer -- )
     [ + ] change-pos