diff --git a/module/web/http.scm b/module/web/http.scm
index 993b50ef4..62f062434 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -1,6 +1,6 @@
 ;;; HTTP messages
 
-;; Copyright (C)  2010-2016 Free Software Foundation, Inc.
+;; Copyright (C)  2010-2017 Free Software Foundation, Inc.
 
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -1158,7 +1158,7 @@ three values: the method, the URI, and the version."
         (put-symbol port scheme)
         (put-string port "://")
         (cond
-         ((host string-index #\:)
+         ((string-index host #\:)
           (put-char #\[ port)
           (put-string port host
           (put-char port #\])))