diff --git a/src/main/server.cl b/src/main/server.cl
index 4a2c66c..f80698c 100644
--- a/src/main/server.cl
+++ b/src/main/server.cl
@@ -119,8 +119,12 @@ Server Response-Header."))
 
 (defmethod server-product-info (server)
   (declare (ignore server))
-  ;; Default for people to lazy to adjust
-  '("CLASH/1.0"))
+  ;; Default for people too lazy to adjust
+  (load-time-value
+   (list "CLASH/1.0"
+	 (format nil "(~A)"
+		 (delete #\( (remove #\) (lisp-implementation-type)))))
+   t))
 
 ;;; Simple Server