From adcd58543c110f58d681e80c8e4e76d1f7f34577 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 6 Dec 2010 12:58:16 +0100
Subject: [PATCH] fix entity tag writing

* module/web/http.scm (write-entity-tag): Fix writing of entity tags
  (strong versus weak).
---
 module/web/http.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))