From 9b5e105eb53a45d31e0f7ca66c6c07f6012e04a1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 Dec 2004 18:21:42 +0000
Subject: [PATCH] Fix #f/() type error.

---
 v7/src/ssp/mod-lisp.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm
index d8b197904..5d7dadfee 100644
--- 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)))
-- 
2.25.1