diff --git a/basis/tools/profiler/sampling/sampling-tests.factor b/basis/tools/profiler/sampling/sampling-tests.factor
index 51a948b56f..8d24ae4293 100644
--- a/basis/tools/profiler/sampling/sampling-tests.factor
+++ b/basis/tools/profiler/sampling/sampling-tests.factor
@@ -22,5 +22,5 @@ gc
     [ "resource:basis/tools/memory/memory.factor" run-file ] profile
     (get-samples) length 0 >
     ! Should clear it
-    [ ] profile (get-samples) length
+    gc [ ] profile (get-samples) length
 ] unit-test