Fix #f/() type error.

diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm
index d8b197904849e457f33073ddfcb805107c8c8232..5d7dadfee62b55bbf030bbaf526d95336437637b 100644 (file)
--- a/v7/src/ssp/mod-lisp.scm
+++ b/v7/src/ssp/mod-lisp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: mod-lisp.scm,v 1.22 2004/11/26 15:14:15 cph Exp $
+$Id: mod-lisp.scm,v 1.23 2004/12/07 18:21:42 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -481,7 +481,7 @@ USA.
 (define (add-header message keyword datum)
   (let ((new (list (cons keyword datum)))
        (tail (http-message-headers-tail message)))
-    (if tail
+    (if (pair? tail)
        (set-cdr! tail new)
        (set-http-message-headers! message new))
     (set-http-message-headers-tail! message new)))