diff --git a/web/tests/test-swap-integration.sx b/web/tests/test-swap-integration.sx
index fb55bfad..8a4d3b48 100644
--- a/web/tests/test-swap-integration.sx
+++ b/web/tests/test-swap-integration.sx
@@ -489,6 +489,11 @@
               (assert-true (contains? result "Success"))
               (assert-false (contains? result "Retrying")))))))))
 
+(defcomp
+  ~examples/anim-result
+  (&key color time)
+  (div :class color (p (str "Color: " color)) (p (str "Time: " time))))
+
 (defsuite
   "swap:animate"
   (deftest
@@ -498,10 +503,10 @@
       ((page "(div :id \"anim-result\")")
         (response (run-handler handler:ex-animate)))
       (let
-        ((result (sx-swap page "innerHTML" "anim-result" response)))
+        ((result (str (sx-swap page "innerHTML" "anim-result" response))))
         (do
-          (assert-true (contains? result "~anim-result"))
-          (assert-true (contains? result "12:00:00")))))))
+          (assert-true (string-contains? result "anim-result"))
+          (assert-true (string-contains? result "12:00:00")))))))
 
 (defsuite
   "swap:inline-edit"