From 03a074a70e1435cecb93afd7f387de4d658934bc Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Jan 2007 21:01:59 +0000
Subject: [PATCH] Fix another thinko.

---
 v7/src/runtime/url.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/url.scm b/v7/src/runtime/url.scm
index 5188b825b..865aec9f6 100644
--- a/v7/src/runtime/url.scm
+++ b/v7/src/runtime/url.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: url.scm,v 1.50 2007/01/17 16:04:37 cph Exp $
+$Id: url.scm,v 1.51 2007/01/17 21:01:59 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -369,7 +369,9 @@ USA.
 	   (default-object? start)
 	   (default-object? end)
 	   (hash-table/get interned-uris string #f))
-      (*parse-string parser string start end)
+      (let ((v (*parse-string parser string start end)))
+	(and v
+	     (vector-ref v 0)))
       (error:bad-range-argument string caller)))
 
 (define parse-uri
-- 
2.25.1