diff --git a/libf2c/libU77/hostnm_.c b/libf2c/libU77/hostnm_.c
index 8229e09e727..fd717b9f857 100644
--- a/libf2c/libU77/hostnm_.c
+++ b/libf2c/libU77/hostnm_.c
@@ -39,7 +39,7 @@ integer G77_hostnm_0 (char *name, ftnlen Lname)
     if (ret==0) {
 	/* Pad with blanks (assuming gethostname will make an error
            return if it can't fit in the null). */
-	for (i=strlen(name); i<=Lname; i++)
+	for (i=strlen(name); i<Lname; i++)
 	    name[i] = ' ';
     }
     return ret;