diff --git a/collects/tests/web-server/private/request-test.ss b/collects/tests/web-server/private/request-test.ss
index edd41a82b9..c97a862592 100644
--- a/collects/tests/web-server/private/request-test.ss
+++ b/collects/tests/web-server/private/request-test.ss
@@ -41,7 +41,10 @@
     "Headers"
     (test-equal? "Simple" (header-value (headers-assq #"key" (list (make-header #"key" #"val")))) #"val")
     (test-false "Not present" (headers-assq #"key" (list)))
-    (test-equal? "Case" (header-value (headers-assq* #"Key" (list (make-header #"key" #"val")))) #"val"))
+    (test-false "Case (not present)" (headers-assq* #"Key" (list)))
+    (test-equal? "Case" (header-value (headers-assq* #"Key" (list (make-header #"key" #"val")))) #"val")
+    (test-equal? "Case (not first)"
+                 (header-value (headers-assq* #"Key" (list (make-header #"key1" #"val") (make-header #"key" #"val")))) #"val"))
    
    (test-suite
     "Bindings"