From d0da81cbac1819bf45eb76f5564f882a63d73af9 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Tue, 25 Nov 2025 11:56:47 -0500
Subject: [PATCH] checkedp correction

---
 source/clog-form.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/clog-form.lisp b/source/clog-form.lisp
index a8b9d4b..64221d2 100644
--- a/source/clog-form.lisp
+++ b/source/clog-form.lisp
@@ -693,8 +693,8 @@ the File form element type.
 
 (defmethod (setf checkedp) (value (obj clog-form-element))
   (if value
-      (setf (attribute obj "checked") "true")
-      (remove-attribute obj "checked")))
+      (setf (property obj "checked") "true")
+      (setf (property obj "checked") "")))
 
 ;;;;;;;;;;;;;;;;
 ;; input-mode ;;