diff --git a/window-utils.el b/window-utils.el
index 973b49d..f6a34f7 100644
--- a/window-utils.el
+++ b/window-utils.el
@@ -39,7 +39,7 @@
 ;; left, top, right, bottom
 (setq window-sides-slots (if (equal system-type 'android)
 			     '(1 1 0 1)
-			   '(5 1 5 1)))
+			   '(5 1 5 2)))
 
 (add-to-list 'display-buffer-alist
              `("\\*Help\\*"
diff --git a/workflows/lisp-custom.el b/workflows/lisp-custom.el
index 17e404d..e554463 100644
--- a/workflows/lisp-custom.el
+++ b/workflows/lisp-custom.el
@@ -45,7 +45,13 @@
 (use-package geiser)
 
 (use-package geiser-chicken
-  :after (geiser))
+  :after (geiser)
+  :config (add-to-list 'display-buffer-alist
+		       '("\\*Geiser"
+			 (display-buffer-in-side-window)
+			 (side . bottom)
+			 (slot . 1)
+			 (window-height . 0.2))))
 
 ;; SICP my beloved
 (use-package sicp