From a2a1a51765cd17bf451a48d80f9475c09d90b12d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 23 Sep 2008 14:06:36 -0500
Subject: [PATCH] Fix another bug in same-host?

---
 basis/furnace/furnace.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/basis/furnace/furnace.factor b/basis/furnace/furnace.factor
index 376da79ef2..7285c436bc 100644
--- a/basis/furnace/furnace.factor
+++ b/basis/furnace/furnace.factor
@@ -99,8 +99,12 @@ M: object modify-form drop ;
 
 : same-host? ( url -- ? )
     dup [
-        url get
-        [ [ protocol>> ] [ host>> ] [ port>> ] tri 3array ] bi@ =
+        url get [
+            [ protocol>> ]
+            [ host>> ]
+            [ port>> remap-port ]
+            tri 3array
+        ] bi@ =
     ] when ;
 
 : cookie-client-state ( key request -- value/f )