Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.57 -r1.58
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	26 May 2011 17:29:50 -0000	1.57
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	28 May 2011 17:15:15 -0000	1.58
@@ -269,7 +269,7 @@
     ::xo::cc mobile 0
     if {[ns_conn isconnected]} {
       set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]]
-      ::xo::cc mobile [regexp (android|webos|iphone|ipod) $user_agent]
+      ::xo::cc mobile [regexp (android|webos|iphone|ipad) $user_agent]
     }
 
     if {![info exists ::ad_conn(charset)]} {
@@ -459,7 +459,8 @@
 
   ConnectionContext instproc load_form_parameter {} {
     my instvar form_parameter
-    if {[ns_conn isconnected]} {
+
+    if {[ns_conn isconnected] && [ns_conn method] eq "POST"} {
       #array set form_parameter [ns_set array [ns_getform]]
       foreach {att value} [ns_set array [ns_getform]] {
         # For some unknown reasons, Safari 3.* returns sometimes
@@ -474,6 +475,7 @@
       array set form_parameter {}
     }
   }
+
   ConnectionContext instproc form_parameter {name {default ""}} {
     my instvar form_parameter form_parameter_multiple
     if {![info exists form_parameter]} {