diff --git a/scsh/rdelim.scm b/scsh/rdelim.scm
index 3583801..2a3b1d5 100644
--- a/scsh/rdelim.scm
+++ b/scsh/rdelim.scm
@@ -192,7 +192,6 @@
 		     (values c (- i start)))
 
 		    ((>= i end)			; Filled the buffer.
-		     (if gobble? (read-char port))
 		     (values #f (- i start)))
 			
 		    (else (string-set! buf i (read-char port))