diff --git a/extra/cuda/memory/memory.factor b/extra/cuda/memory/memory.factor
index 2369851292..45bcf29e4a 100644
--- a/extra/cuda/memory/memory.factor
+++ b/extra/cuda/memory/memory.factor
@@ -44,7 +44,7 @@ DESTRUCTOR: cuda-free
     cuMemcpyDtoH cuda-error ; inline
 
 : host>device ( data -- ptr )
-    [ >c-ptr ] [ byte-length ] bi
+    binary-object
     [ nip cuda-malloc dup ] [ memcpy-host>device ] 2bi ; inline
 
 : device>host ( ptr len -- byte-array )