2016-02-08: fix: forgot to give string-take the argument

fix: forgot to give string-take the argument

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -78,7 +78,7 @@
 (define (wot-uri-key uri)
   (let ((index (string-index uri #\/)))
     (if index 
-        (string-take uri )
+        (string-take uri index)
         uri))) ;; no / in uri, so it is already a key.
 
 (define (wot-uri-filename uri)