From 977dd43d465f41a720c0ebebfb0e1174966176a7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 22 Sep 2008 17:06:31 -0500
Subject: [PATCH] One last fix

---
 basis/furnace/furnace.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/furnace/furnace.factor b/basis/furnace/furnace.factor
index efd730c26c..34d2beb717 100644
--- a/basis/furnace/furnace.factor
+++ b/basis/furnace/furnace.factor
@@ -92,7 +92,7 @@ M: object modify-form drop ;
 : referrer ( -- referrer )
     #! Typo is intentional, its in the HTTP spec!
     "referer" request get header>> at
-    >url [ remap-port ] change-port ;
+    >url ensure-port [ remap-port ] change-port ;
 
 : user-agent ( -- user-agent )
     "user-agent" request get header>> at "" or ;