Index: src/app-utils/options.scm
===================================================================
--- src/app-utils/options.scm	(revision 18372)
+++ src/app-utils/options.scm	(working copy)
@@ -445,9 +445,13 @@
                  (setter-function-called-cb x)))
      (lambda () default-value)
      (gnc:restore-form-generator value->string)
-     (lambda (f p) (kvp-frame-set-slot-path-gslist f value p))
+     (lambda (f p) (kvp-frame-set-slot-path-gslist f 
+                    (if value "t" "f") 
+                    p))
      (lambda (f p)
        (let ((v (kvp-frame-get-slot-path-gslist f p)))
+         (cond ((equal? v "t") (set! v #t))
+               ((equal? v "f") (set! v #f)))
          (if (and v (boolean? v) (not (equal? v default-value)))
              (set! value v))))
      (lambda (x)
