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

[factor.git] / extra / google / search / search.factor

diff --git a/extra/google/search/search.factor b/extra/google/search/search.factor
index 4518b114808dcfed03cf016b3b8a0adcc2c37809..2bf33e6c2e418ac61cf12757a238a19ff0b360a0 100644 (file)
--- a/extra/google/search/search.factor
+++ b/extra/google/search/search.factor
@@ -10,7 +10,7 @@ IN: google.search
 <PRIVATE
 
 : search-url ( query -- url )
-    URL" http://ajax.googleapis.com/ajax/services/search/web"
+    URL" http://ajax.googleapis.com/ajax/services/search/web" clone
         "1.0" "v" set-query-param
         swap "q" set-query-param
         "8" "rsz" set-query-param