From 24599a643720ade9c791b43b35bd3d9a7c970039 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 26 Jan 2009 15:49:38 -0600
Subject: [PATCH] use the form element name as key, not the filename

---
 basis/mime/multipart/multipart-tests.factor | 2 +-
 basis/mime/multipart/multipart.factor       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/mime/multipart/multipart-tests.factor b/basis/mime/multipart/multipart-tests.factor
index f4156fac9e..b6d76c328a 100644
--- a/basis/mime/multipart/multipart-tests.factor
+++ b/basis/mime/multipart/multipart-tests.factor
@@ -20,7 +20,7 @@ IN: mime.multipart.tests
 
 [ t ] [
     mime-test-stream [ upload-separator parse-multipart ] with-input-stream
-    "\"up.txt\"" swap key?
+    "\"file1\"" swap key?
 ] unit-test
 
 [ t ] [
diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor
index 1b5ce74620..b25c78c198 100755
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@@ -84,7 +84,7 @@ ERROR: end-of-stream multipart ;
         drop
     ] [
         [ [ header>> ] [ filename>> ] [ temp-file>> ] tri mime-file boa ]
-        [ filename>> ]
+        [ content-disposition>> "name" swap at ]
         [ mime-parts>> set-at ] tri
     ] if ;