diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index 93de4174e9..a9b67446d8 100644
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -10,6 +10,9 @@ sequences words cuda.libraries ;
 QUALIFIED-WITH: alien.c-types c
 IN: cuda
 
+: init-cuda ( -- )
+    0 cuInit cuda-error ; inline
+
 TUPLE: function-launcher
 dim-grid dim-block shared-size stream ;
 
diff --git a/extra/cuda/utils/utils.factor b/extra/cuda/utils/utils.factor
index a8e6210970..87abdb5508 100644
--- a/extra/cuda/utils/utils.factor
+++ b/extra/cuda/utils/utils.factor
@@ -17,9 +17,6 @@ ERROR: throw-cuda-error n ;
 : cuda-error ( n -- )
     dup CUDA_SUCCESS = [ drop ] [ throw-cuda-error ] if ;
 
-: init-cuda ( -- )
-    0 cuInit cuda-error ; inline
-
 : cuda-version ( -- n )
     int <c-object> [ cuDriverGetVersion cuda-error ] keep *int ;