                   (goto-char np)
                   (insert " ")))
             (setq p np)))
-        (message nil)))))
+        (message nil))
+
+      (let ((w (display-buffer (current-buffer))))
+        (balance-windows)
+        (shrink-window-if-larger-than-buffer w)
+        (set-window-point w (point-min))))))
 
 (defun go-oracle-callees ()
   "Show possible callees of the function call at the current point."

  (interactive)
  (go-oracle--run "freevars"))

(defun go-oracle-channel-peers ()
  "Enumerate the set of possible corresponding sends/receives for
this channel receive/send operation."
  (interactive)

      (insert "\n")
      (compilation-mode)
      (setq compilation-error-screen-columns nil)

      ;; Hide the file/line info to save space.
      ;; Replace each with a little widget.
