diff --git a/extra/cuda/devices/devices.factor b/extra/cuda/devices/devices.factor
index d909e9ab5c..7ad7b32c8d 100644
--- a/extra/cuda/devices/devices.factor
+++ b/extra/cuda/devices/devices.factor
@@ -82,5 +82,5 @@ IN: cuda.devices
 
 : distribute-jobs ( job-count per-job-shared -- launcher )
     cuda-device get cuda-device-properties 
-    [ sharedMemPerBlock>> ] [ maxThreadsDim>> ] bi
+    [ sharedMemPerBlock>> ] [ maxThreadsDim>> first ] bi
     (distribute-jobs) 3<<< ; inline