Index: wapp.tcl
==================================================================
--- wapp.tcl
+++ wapp.tcl
@@ -573,11 +573,16 @@
   if {[dict exists $wapp QUERY_STRING]} {
     foreach qterm [split [dict get $wapp QUERY_STRING] &] {
       set qsplit [split $qterm =]
       set nm [lindex $qsplit 0]
       if {[regexp {^[a-z][a-z0-9]*$} $nm]} {
-        dict set wapp $nm [wappInt-decode-url [lindex $qsplit 1]]
+        set p [wappInt-decode-url [lindex $qsplit 1]]
+        if {[dict exists $wapp $nm]} {
+          dict lappend wapp $nm $p
+        } else {
+          dict set wapp $nm $p
+        }
       }
     }
   }
   if {[dict exists $wapp CONTENT_TYPE] && [dict exists $wapp CONTENT]} {
     set ctype [dict get $wapp CONTENT_TYPE]
@@ -584,11 +589,16 @@
     if {$ctype=="application/x-www-form-urlencoded"} {
       foreach qterm [split [string trim [dict get $wapp CONTENT]] &] {
         set qsplit [split $qterm =]
         set nm [lindex $qsplit 0]
         if {[regexp {^[a-z][-a-z0-9_]*$} $nm]} {
-          dict set wapp $nm [wappInt-decode-url [lindex $qsplit 1]]
+          set p [wappInt-decode-url [lindex $qsplit 1]]
+          if {[dict exists $wapp $nm]} {
+            dict lappend wapp $nm $p
+          } else {
+            dict set wapp $nm $p
+          }
         }
       }
     } elseif {[string match multipart/form-data* $ctype]} {
       regexp {^(.*?)\n(.*)$} [dict get $wapp CONTENT] all divider body
       set ndiv [string length $divider]