--- http.scm.orig	Thu Jul 11 11:49:28 2002
+++ http.scm	Sat Apr 27 20:03:55 2002
@@ -135,9 +135,9 @@
 (define (parse-status-line statline)
   (let* ((first (string-index statline #\space))
 	 (second (string-index statline #\space (1+ first))))
-    (list (make-shared-substring statline 0 first)
-	  (make-shared-substring statline (1+ first) second)
-	  (make-shared-substring statline (1+ second)))))
+     (list (substring statline 0 first)
+ 	  (substring statline (1+ first) second)
+ 	  (substring statline (1+ second)))))
 
 
 ;;; HTTP connection management functions.
@@ -317,6 +317,6 @@
 	   (set! end (1- end)))
     (if (< end st)
 	""
-	(make-shared-substring s st end))))
+	(substring s st end))))
 
 ;;; www/http.scm ends here