   (let* ((choices (list (-map #'car jail-windows--registered-layouts)))
          (choice (completing-read prompt choices predicate t initial-input)))
     (if (equal choice "")
-        (car (car choices))
+        (caar choices)
       (intern choice))))
 
 (defun jail-windows--message (type &rest args)

               (jail-windows/register-builtin-layouts)
             (jail-windows/unregister-builtin-layouts))))
  :group 'jail-windows)
(defcustom jail-windows-default-layout nil
  "Default layout to activate when none has been selected and jail-windows-mode
activates for the first time on a frame."
  :group 'jail-windows)

     (or (jail-windows--get-option nil
                                   'active-layout)
         (jail-windows/layout-p jail-windows-default-layout)
         (caar jail-windows--registered-layouts))))
  (run-hooks (when (jail-windows/active-p)
               'jail-windows-mode-in-hook)
             'jail-windows-mode-hook
