Remove stupid error generating code. Hit me.

scheme/httpd/surflets/web-server/root/surflets/spaceship.scm

@@ -3,7 +3,8 @@
 	scheme
 	servlets
 	let-opt
-	receiving)
+	receiving
+	(subset srfi-13 (string-downcase)))
 (begin
 
 ;;; Spaceship components
@@ -78,12 +79,10 @@
 	      ,med-beds " treatment beds, "
 	      ,(and armed (list armed " armed,"))
 	      ,(and shields (list shields " shields"))
-	      " and has a " ,drive " drive.")))))
+	      " and has a " ,(string-downcase drive) " drive.")))))
 
 
 (define (get-size req class . maybe-update-text)
-    ((lambda (a b) (< a b))  0 #f)
-
   (let* ((update-text (:optional maybe-update-text #f))
 	 (size-input (make-number-input-field))
 	 (complain (lambda (class size)
@@ -150,7 +149,8 @@ specify a positive number.")
     ,(make-title)
     (body
      (h1 "Welcome to the Spaceship Builder Web Site!")
-     (p "Here you can build your own space ship")
+     (p "Here you can build your own space ship.")
+     (p "Please note that this site is currently under construction. You cannot specify much details.")
      (h2 "Step 1 -- Selecting components")
      ,(and update-text `(font (@ (color "red")) ,update-text))
      (servlet-form ,new-url
@@ -181,5 +181,4 @@ specify a positive number.")
 	     elem))
        list))
 
-
   ))