use the form element name as key, not the filename

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 ] [

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 ;