diff --git a/lib/hyperscript/runtime.sx b/lib/hyperscript/runtime.sx
index f928e69d..a3625171 100644
--- a/lib/hyperscript/runtime.sx
+++ b/lib/hyperscript/runtime.sx
@@ -1432,6 +1432,15 @@
   hs-strict-eq
   (fn (a b) (and (= (type-of a) (type-of b)) (= a b))))
 
+(define
+  hs-id=
+  (fn
+    (a b)
+    (if
+      (and (= (host-typeof a) "element") (= (host-typeof b) "element"))
+      (hs-ref-eq a b)
+      (= a b))))
+
 (define
   hs-eq-ignore-case
   (fn (a b) (= (downcase (str a)) (downcase (str b)))))
diff --git a/shared/static/wasm/sx/hs-runtime.sx b/shared/static/wasm/sx/hs-runtime.sx
index f928e69d..a3625171 100644
--- a/shared/static/wasm/sx/hs-runtime.sx
+++ b/shared/static/wasm/sx/hs-runtime.sx
@@ -1432,6 +1432,15 @@
   hs-strict-eq
   (fn (a b) (and (= (type-of a) (type-of b)) (= a b))))
 
+(define
+  hs-id=
+  (fn
+    (a b)
+    (if
+      (and (= (host-typeof a) "element") (= (host-typeof b) "element"))
+      (hs-ref-eq a b)
+      (= a b))))
+
 (define
   hs-eq-ignore-case
   (fn (a b) (= (downcase (str a)) (downcase (str b)))))