diff --git a/s48/cavespider/load.scm b/s48/cavespider/load.scm
index 0158847..43a47d5 100644
--- a/s48/cavespider/load.scm
+++ b/s48/cavespider/load.scm
@@ -39,3 +39,12 @@
 (newline)
 (display (ask-server (string-append "GET / HTTP/1.0" (string #\return #\newline #\return #\newline) "index.html" hostname port)))
 
+(let ((file-contents (file->string "index.html")))
+;;  (do ((url-list (file-contents->url file-contents 0)
+;;                 (file-contents->url file-contents 0)))
+  (let ((url-list (file-contents->url file-contents 0))
+        (url->hostname url-list hostname-list);;FIXME url-list
+        (display hostname-list)
+
+        )
+    ))
diff --git a/s48/cavespider/string-util.scm b/s48/cavespider/string-util.scm
index 09bba2d..5773e8c 100644
--- a/s48/cavespider/string-util.scm
+++ b/s48/cavespider/string-util.scm
@@ -1,5 +1,5 @@
 ;;;
-;;; Copyright (c) 2012 Johan Ceuppens 
+;;; Copyright (c) 2012 Johan Ceuppens
 ;;;
 ;;; All rights reserved.
 ;;;
diff --git a/scsh/schemedoc/schemedoc.scm b/scsh/schemedoc/schemedoc.scm
index b237000..d46f2ff 100644
--- a/scsh/schemedoc/schemedoc.scm
+++ b/scsh/schemedoc/schemedoc.scm
@@ -101,7 +101,6 @@
              (set! headline line)
              (set! line ""))
             ;;((eq? (car l) #\newline)
-
             )
       (set! line (string-append line (string (car l))))
       (set! itemtext (string-append itemtext (string (car l))))
@@ -128,4 +127,4 @@
         ((null? l)0)
       (cond ((string<=? keyword (car l))
              (set! returntext (string-append returntext (car l))))))
-    returntext))
\ No newline at end of file
+    returntext))