Index: generic/tclIO.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIO.c,v
retrieving revision 1.145
diff -u -r1.145 tclIO.c
--- generic/tclIO.c	16 Oct 2008 22:34:19 -0000	1.145
+++ generic/tclIO.c	20 Oct 2008 22:31:39 -0000
@@ -6310,18 +6310,12 @@
     }
 
     /*
-     * Compute how much input and output is buffered. If both input and output
-     * is buffered, cannot compute the current position.
+     * Compute how much input and output is buffered.
      */
 
     inputBuffered = Tcl_InputBuffered(chan);
     outputBuffered = Tcl_OutputBuffered(chan);
 
-    if ((inputBuffered != 0) && (outputBuffered != 0)) {
-	Tcl_SetErrno(EFAULT);
-	return Tcl_LongAsWide(-1);
-    }
-
     /*
      * If we are seeking relative to the current position, compute the
      * corrected offset taking into account the amount of unread input.
