diff --git a/Source/DOH/Doh/file.c b/Source/DOH/Doh/file.c
index bf31e60ca..b6c70cfea 100644
--- a/Source/DOH/Doh/file.c
+++ b/Source/DOH/Doh/file.c
@@ -106,7 +106,7 @@ File_tell(DOH *fo) {
     return ftell(f->filep);
   } else if (f->fd) {
 #ifdef DOH_INTFILE
-    return tell(f->fd);
+    return lseek(f->fd, 0, SEEK_CUR);
 #endif
   }
   return -1;
diff --git a/Source/DOH/Doh/fio.c b/Source/DOH/Doh/fio.c
index e221310b8..2d8e03efd 100644
--- a/Source/DOH/Doh/fio.c
+++ b/Source/DOH/Doh/fio.c
@@ -470,10 +470,10 @@ DohSplit(DOH *in, char *chs, int nsplits) {
   int c;
   
   list = NewList();
-  /*  if (String_check(in)) {
+
+  if (DohIsString(in)) {
     Seek(in,0,SEEK_SET);
   }
-  */
 
   while (1) {
     str = NewString("");