diff --git a/scsh/here.scm b/scsh/here.scm
index 957c291..86a2291 100644
--- a/scsh/here.scm
+++ b/scsh/here.scm
@@ -94,8 +94,8 @@
     (cond ((eof-object? delim)
 	   (reading-error port
 			  "EOF while reading #<< here-string delimiter line."))
-	  ((= 1 (string-length delim))
-	   (reading-error port "#<< here-string empty delimiter line"))
+ 	  ((= 0 (string-length delim))
+ 	   (reading-error port "#<< here-string empty delimiter line"))
 
 	  (else
 	   (let lp ((text '()))