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.16 -r1.17
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	2 May 2007 09:54:52 -0000	1.16
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	8 May 2007 11:21:47 -0000	1.17
@@ -54,8 +54,11 @@
     foreach querypart [split $actual_query &] {
       set name_value_pair [split $querypart =]
       set att_name  [ns_urldecode [lindex $name_value_pair 0]]
-      set att_value [expr {[llength $name_value_pair] == 1 ? 1 :
-                           [ns_urldecode [lindex $name_value_pair 1]]  }]
+      if {[llength $name_value_pair] == 1} { 
+        set att_value 1 
+      }  else {
+        set att_value [ns_urldecode [lindex $name_value_pair 1]]
+      }
       if {[info exists (-$att_name)]} {
         set passed_args(-$att_name) $att_value
       } elseif {$all_from_query} {