diff --git a/test.lisp b/test.lisp
index 79fd863..8555860 100644
--- a/test.lisp
+++ b/test.lisp
@@ -211,7 +211,7 @@
         for child in (children test)
         for subresult = (result-for-testable child context)
         do (when (find child skipped)
-             (setf (status child) :skipped))
+             (setf (status subresult) :skipped))
            (eval-in-context context subresult)))
 
 (defun resolve-dependency-combination (combination test)