diff --git a/hosts/ocaml/lib/sx_primitives.ml b/hosts/ocaml/lib/sx_primitives.ml
index 73e0045..b53585e 100644
--- a/hosts/ocaml/lib/sx_primitives.ml
+++ b/hosts/ocaml/lib/sx_primitives.ml
@@ -725,8 +725,14 @@ let () =
     | _ -> Nil);
   register "component-has-children?" (fun args ->
     match args with
-    | [Component c] -> Bool (List.mem "children" c.c_params)
-    | [Island i] -> Bool (List.mem "children" i.i_params)
+    | [Component c] ->
+      Printf.eprintf "[has-children?] Component %s params=%s has=%b\n%!"
+        c.c_name (String.concat "," c.c_params) c.c_has_children;
+      Bool c.c_has_children
+    | [Island i] ->
+      Printf.eprintf "[has-children?] Island %s params=%s has=%b\n%!"
+        i.i_name (String.concat "," i.i_params) i.i_has_children;
+      Bool i.i_has_children
     | _ -> Bool false);
   register "component-name" (fun args ->
     match args with
diff --git a/spec/tests/test-render-html.sx b/spec/tests/test-render-html.sx
index 77413bb..6bef1ce 100644
--- a/spec/tests/test-render-html.sx
+++ b/spec/tests/test-render-html.sx
@@ -679,9 +679,7 @@
       (eval-expr '(defisland ~counter (&key start)
                     (span (str "count: " start))) env)
       (let ((html (rh-env '(~counter :start 0) env)))
-        ;; Should contain the island marker
         (assert-true (string-contains? html "data-sx-island"))
-        ;; Should contain rendered content
         (assert-true (string-contains? html "count: 0")))))
 
   (deftest "island name appears in marker"