Index: commands.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/commands.lisp,v
retrieving revision 1.56
diff -u -r1.56 commands.lisp
--- commands.lisp	1 Dec 2005 11:10:54 -0000	1.56
+++ commands.lisp	9 Jan 2006 09:59:35 -0000
@@ -639,6 +639,7 @@
 					     ,command-arg))
 		     else if (member key accept-keys :test #'eq)
 		       append `(,key ,val))))
+	(setq args (append args `(:query-identifier ',(gensym))))
 	(if (member :default args :test #'eq)
 	    `(accept ,ptype :stream ,stream ,@args)
 	    `(if (eq ,original-command-arg *unsupplied-argument-marker*)