diff --git a/src/utils.scm b/src/utils.scm
index 331690b..8aaf1e7 100644
--- a/src/utils.scm
+++ b/src/utils.scm
@@ -78,10 +78,15 @@
 	(type-alist (map (lambda (s)
 			   (cons (first s) (second s)))
 			 spec))
+;	(default-alist (map (lambda (s)
+;			      (let ((op (assq (first s) options)))
+;				(if op op
+;				    (cons (first s) (third s)))))
+;			    spec)))
+	;; TODO: options from config and the spec should form the
+	;; defaults (but not those from layout).
 	(default-alist (map (lambda (s)
-			      (let ((op (assq (first s) options)))
-				(if op op
-				    (cons (first s) (third s)))))
+			      (cons (first s) (third s)))
 			    spec)))
     (for-each (lambda (name.option name.type)
 		(allocate-option dpy colormap (car name.option)