--- lisp/calculator.el	2010-01-21 13:34:34.000000000 +0100
+++ /home/sebastian/Desktop/calculator.el	2010-03-01 20:50:12.000000000 +0100
@@ -724,7 +724,7 @@
     (progn
       (cond
         ((not (get-buffer-window calculator-buffer))
-         (let ((split-window-keep-point nil)
+         (let ((split-window-keep-point t)
                (window-min-height 2))
            ;; maybe leave two lines for our window because of the normal
            ;; `raised' modeline in Emacs 21