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.54 -r1.55
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	18 Jun 2010 10:26:59 -0000	1.54
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	12 Jul 2010 14:38:24 -0000	1.55
@@ -54,7 +54,8 @@
     #my log "--P processing actual query $actual_query"
     foreach querypart [split $actual_query &] {
       set name_value_pair [split $querypart =]
-      set att_name  [ns_urldecode [lindex $name_value_pair 0]]
+      set att_name [ns_urldecode [lindex $name_value_pair 0]]
+      if {$att_name eq ""} continue
       if {[llength $name_value_pair] == 1} { 
         set att_value 1 
       }  else {
@@ -101,7 +102,7 @@
     
     #my log "--cc calling parser eval [self] __parse $parse_args"
     eval [self] __parse $parse_args
-    #my log "--cc qp [array names queryparm] // $actual_query"
+    #my msg "--cc qp [array get queryparm] // $actual_query"
   }
 
   Context instproc original_url_and_query args {
@@ -131,6 +132,7 @@
     @param level target level
   } {
     my instvar queryparm package_id
+
     foreach p [my array names queryparm] {
       set value [my set queryparm($p)]
       uplevel $level [list set $p [my set queryparm($p)]]