diff --git a/xo-expression2/utest/DApplyExpr.test.cpp b/xo-expression2/utest/DApplyExpr.test.cpp
index 7854397d..0f7f41ef 100644
--- a/xo-expression2/utest/DApplyExpr.test.cpp
+++ b/xo-expression2/utest/DApplyExpr.test.cpp
@@ -240,7 +240,8 @@ namespace ut {
         bool ok = CollectorTypeRegistry::instance().install_types(coll);
         REQUIRE(ok);
 
-        obj<AGCObject> prim_gco = with_facet<AGCObject>::mkobj(&NumericPrimitives::s_mul_gco_gco_pm);
+        obj<AGCObject> prim_gco
+            = with_facet<AGCObject>::mkobj(NumericPrimitives::make_multiply_pm(alloc));
         obj<AExpression,DConstant> fn_expr = DConstant::make(alloc, prim_gco);
 
         obj<AGCObject> val1 = DFloat::box<AGCObject>(alloc, 3.0);