diff --git a/include/xo/procedure2/DPrimitive.hpp b/include/xo/procedure2/DPrimitive.hpp
index d55e01e..0c386a5 100644
--- a/include/xo/procedure2/DPrimitive.hpp
+++ b/include/xo/procedure2/DPrimitive.hpp
@@ -199,7 +199,7 @@ namespace xo {
         template <typename Fn>
         Primitive<Fn> *
         Primitive<Fn>::shallow_move(obj<ACollector> gc) noexcept {
-            return gc.std_copy_for(this);
+            return gc.std_move_for(this);
         }
 
         template <typename Fn>