--- OpenCL/OpenCL.xs	2012/04/20 08:57:09	1.33
+++ OpenCL/OpenCL.xs	2012/04/20 19:36:00	1.34
@@ -857,7 +857,7 @@
         char *ptr = SvPVbyte (data, len);
         EVENT_LIST (5, items - 5);
 
-        NEED_SUCCESS (EnqueueReadBuffer, (self, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
+        NEED_SUCCESS (EnqueueWriteBuffer, (self, mem, blocking, offset, len, ptr, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
 
         if (ev)
           XPUSH_NEW_OBJ ("OpenCL::Event", ev);