diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index 04c2f304c8..d549e107ae 100644
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -10,10 +10,10 @@ sequences words ;
 QUALIFIED-WITH: alien.c-types c
 IN: cuda
 
-TUPLE: cuda-error-state code ;
+ERROR: cuda-error-state code ;
 
 : cuda-error ( code -- )
-    dup CUDA_SUCCESS = [ drop ] [ \ cuda-error-state boa throw ] if ;
+    dup CUDA_SUCCESS = [ drop ] [ cuda-error-state ] if ;
 
 : cuda-version ( -- n )
     { c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;