From d432e89e49732df602404d61e4399016a0aed1d5 Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Fri, 6 Apr 2001 01:40:25 +0000
Subject: [PATCH] Corrected server-product-info to show real CLASH version
 number.

---
 src/main/server.cl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/main/server.cl b/src/main/server.cl
index 78f9595..74ea72a 100644
--- a/src/main/server.cl
+++ b/src/main/server.cl
@@ -122,7 +122,7 @@ Server Response-Header."))
   (declare (ignore server))
   ;; Default for people too lazy to adjust
   (load-time-value
-   (list "CLASH/1.0"
+   (list (format nil "CLASH/~A" (clash-version-string))
 	 (format nil "(~A)"
 		 (delete #\( (remove #\) (lisp-implementation-type)))))
    t))