diff --git a/module/web/http.scm b/module/web/http.scm
index 2ebdb3bf6..bf54b239b 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -573,7 +573,7 @@
        (string? (car val))))
 
 (define (write-entity-tag val port)
-  (if (cdr val)
+  (if (not (cdr val))
       (display "W/" port))
   (write-qstring (car val) port))