diff --git a/R/layout.R b/R/layout.R
index 46f28063c1a..236b0580819 100644
--- a/R/layout.R
+++ b/R/layout.R
@@ -1134,11 +1134,9 @@ layout_randomly <- function(graph, dim = c(2, 3)) {
   dim <- igraph.match.arg(dim)
 
   if (dim == 2) {
-    on.exit(.Call(R_igraph_finalizer))
-    .Call(R_igraph_layout_random, graph)
+    layout_random_impl(graph)
   } else if (dim == 3) {
-    on.exit(.Call(R_igraph_finalizer))
-    .Call(R_igraph_layout_random_3d, graph)
+    layout_random_3d_impl(graph)
   }
 }