diff --git a/collects/net/scribblings/head.scrbl b/collects/net/scribblings/head.scrbl
index 4b186161c7..28a6b258a6 100644
--- a/collects/net/scribblings/head.scrbl
+++ b/collects/net/scribblings/head.scrbl
@@ -199,8 +199,12 @@ should be returned:
        (extract-addresses "John Doe <doe@localhost>" 'all)
        (extract-addresses "doe@localhost (Johnny Doe)" 'all)
        (extract-addresses "doe@localhost" 'all)
-       (extract-addresses " \"Doe, John\" <doe@localhost>, jane"
-                          'all)
+       (define r
+         (extract-addresses " \"John\" <doe@localhost>, jane"
+                            'all))
+       (length r)
+       (car r)
+       (cadr r)
        ]}
 
 ]}