diff --git a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
index c6bef00..e28c864 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
@@ -26,7 +26,7 @@
 	     (lambda (a) a))
 	    (else
 	     (error "no such operator" operator-string))))
-	 `(select (@ ((name ,name)))
+	 `(select (@ (name ,name))
 		  ,@(map (lambda (operator)
 			   `(option ,(operator-symbol operator)))
 			 *operator-alist*)))))