--- OpenCL/OpenCL.xs	2011/11/16 00:35:30	1.5
+++ OpenCL/OpenCL.xs	2011/11/17 01:36:52	1.6
@@ -297,11 +297,11 @@
         INFO (Context)
 
 void
-command_queue_simple (OpenCL::Context this, OpenCL::Device device)
+queue (OpenCL::Context this, OpenCL::Device device, cl_command_queue_properties properties)
 	PPCODE:
 {
 	cl_int res;
-  	cl_command_queue queue = clCreateCommandQueue (this, device, 0, &res);
+  	cl_command_queue queue = clCreateCommandQueue (this, device, properties, &res);
 
         if (res)
           FAIL (CreateCommandQueue, res);