Fix typo.

diff --git a/src/runtime/http-io.scm b/src/runtime/http-io.scm
index 928e8a274eb4df068f3473d5c3eec9166fe207a3..f7e67a47941c1cd61cbe8787aacf31e647abe4c1 100644 (file)
--- a/src/runtime/http-io.scm
+++ b/src/runtime/http-io.scm
@@ -102,7 +102,7 @@ USA.
 (define-guarantee simple-http-request "simple HTTP request")
 
 (define (make-simple-http-request uri)
-  (guarantee simple-http-request-uri? uri 'make-http-request)
+  (guarantee simple-http-request-uri? uri 'make-simple-http-request)
   (%make-http-request '|GET| uri #f '() (bytevector)))
 
 (define (simple-http-response? object)