diff --git a/scheme/httpd/surflets/web-server/root/surflets/add2.scm b/scheme/httpd/surflets/web-server/root/surflets/add2.scm index c19da03..6b2e295 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/add2.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/add2.scm @@ -28,7 +28,7 @@ (URL "add2.scm" "Start new calculation.")))))))) (if result (or (input-field-value number-input-field - (form-query (http-url-search (request:url result)))) + (form-query (http-url-search (request-url result)))) (get-number input-text "Please enter a valid number.")) (get-number input-text "Please enter a number."))))