diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index d4202ba665..1b144632fb 100644
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -61,11 +61,9 @@ PRIVATE>
         [ dim-block>> block-dim function-block-shape* ]
         [ shared-size>> function-shared-size* ]
         [
-            dim-grid>> [
-                launch-function*
-            ] [
-                grid-dim launch-function-grid*
-            ] if-empty
+            dim-grid>>
+            [ grid-dim launch-function-grid* ]
+            [ launch-function* ] if*
         ]
     } 2cleave ;