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 04be14e..1797000 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/add-html.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/add-html.scm @@ -24,7 +24,7 @@ (input (@ (type "submit")))))) (hr) (p (URL "/" "Return to main menu") (br) - (URL "add.scm" "Start new calculation.")))))))) + (URL "add-html.scm" "Start new calculation.")))))))) (let* ((bindings (form-query (http-url-search (surflet-request-url result)))) (number (string->number diff --git a/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm b/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm index 2bdd4ac..2c0d4f9 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm @@ -45,7 +45,7 @@ (body (h2 "Result") (p ,(number->string (+ number1 number2))) (hr) - (p (URL "add2.scm" "Make new calculation.") (br) + (p (URL "add-surflet.scm" "Make new calculation.") (br) (URL "javascript:history.go(-2)" "New calculation (same session)") (br) (URL "/" "Return to main menu.")))))