Index: main/form.lisp
===================================================================
--- main/form.lisp	(revision main,64)
+++ main/form.lisp	(revision main,74)
@@ -63,6 +63,6 @@
                   :display-width ,display-width :data-width ,data-width
                   :read-only ,read-only
-                  :inactive-background ',inactive-background
-                  :active-background ',active-background))
+                  :inactive-background (list ,@inactive-background)
+                  :active-background (list ,@active-background)))
 
 (defun make-numberbox-def (row column name display-width
@@ -76,6 +76,6 @@
                   :display-width ,display-width :data-width ,data-width
                   :precision ,precision :read-only ,read-only
-                  :inactive-background ',inactive-background
-                  :active-background ',active-background))
+                  :inactive-background (list ,@inactive-background)
+                  :active-background (list ,@active-background)))
 
 (defun parse-widget-form (widget-form)
@@ -91,9 +91,9 @@
 (defmacro defform (name (&rest options) &body widgets)
   "Each widget is one of:
-- (:label row column text)
-- (:textbox row column name display-width &key data-width read-only)
-- (:numberbox row column name display-width &key data-width precision read-only)"
-  (destructuring-bind (&key ((:inactive-widget-background *default-inactive-widget-background*) '(#\Space 0))
-                            ((:active-widget-background *default-active-widget-background*) '(#\Space 0)))
+* (:label row column text)
+* (:textbox row column name display-width &key data-width read-only)
+* (:numberbox row column name display-width &key data-width precision read-only)"
+  (destructuring-bind (&key ((:inactive-widget-background *default-inactive-widget-background*) '(#\Nul 0))
+                            ((:active-widget-background *default-active-widget-background*) '(#\Nul 0)))
       options
     (with-gensyms (elements)