Make sure URLs are cloned before using set-query-param on them

[factor.git] / extra / webapps / calculator / calculator.factor

diff --git a/extra/webapps/calculator/calculator.factor b/extra/webapps/calculator/calculator.factor
index 402143b947da5f3448ea946633c662b1c9968d96..2d652feea1ffa7d7eaa72a89985919ab9f8a587d 100644 (file)
--- a/extra/webapps/calculator/calculator.factor
+++ b/extra/webapps/calculator/calculator.factor
@@ -22,7 +22,7 @@ TUPLE: calculator < dispatcher ;
             { "y" [ v-number ] }
         } validate-params
 
-        URL" $calculator" "x" value "y" value + "z" set-query-param
+        URL" $calculator" clone "x" value "y" value + "z" set-query-param
         <redirect>
     ] >>submit ;