diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 4033e559d..5cf88b70b 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+1998-12-01  Christian Lynbech  <chl@tbit.dk>
+
+	* boot-9.scm (try-using-libtool-name): Fix check on dlname to make
+	sure that it isn't empty, as it is when we are only buidling
+	static libraries.
+
 1998-11-27  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
 	* session.scm (arity): New procedure.
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 66381f2b3..846960702 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2193,7 +2193,7 @@
 	   (lambda ()
 	     (let loop ((ln (read-line)))
 	       (cond ((eof-object? ln) #f)
-		     ((and (>= (string-length ln) 8)
+		     ((and (> (string-length ln) 9)
 			   (string=? "dlname='" (substring ln 0 8))
 			   (string-index ln #\' 8))
 		      =>