diff --git a/scheme/httpd/surflets/web-server/root/surflets/add-html.scm b/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
index fc605c0..b78d05f 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
@@ -8,22 +8,23 @@
 
     (define (get-number input-text . maybe-title)
       (let* ((title (if (pair? maybe-title) (car maybe-title) #f))
-	     (result (send-html/suspend
-		      (lambda (new-url)
-			`(html ,(if title
-				    `(title ,title)  '())
-			       (body
-				,(if title `(h2 ,title) '())
-				(p
-				 (form (@ (method "get")
-					  (action ,new-url))
-				       ,input-text " "
-				       (input (@ (type "text")
-						 (name "number"))
-					      (input (@ (type "submit"))))))
-				(hr)
-				(p (URL "/" "Return to main menu") (br)
-				   (URL "add.scm" "Start new calculation."))))))))
+	     (result 
+	      (send-html/suspend
+	       (lambda (new-url)
+		 `(html ,(if title
+			     `(title ,title)  '())
+			(body
+			 ,(if title `(h2 ,title) '())
+			 (p
+			  (form (@ (method "get")
+				   (action ,new-url))
+				,input-text " "
+				(input (@ (type "text")
+					  (name "number"))
+				       (input (@ (type "submit"))))))
+			 (hr)
+			 (p (URL "/" "Return to main menu") (br)
+			    (URL "add.scm" "Start new calculation."))))))))
 	(let* ((bindings (form-query
 			  (http-url-search (request-url result))))
 	       (number (string->number