Index: main/widget/db-checkbox.lisp
===================================================================
--- main/widget/db-checkbox.lisp	(revision main,84)
+++ main/widget/db-checkbox.lisp	(revision main,87)
@@ -32,4 +32,7 @@
                           &key data &allow-other-keys)
   (assert data (data) "DATA must be specified.")
+  (loop until (remf args :data))
   (let ((inst (apply 'create-widget 'checkbox parent y x args)))
-    (change-class inst 'db-checkbox :data data)))
+    (change-class inst 'db-checkbox :data data)
+    (draw inst)
+    inst))