Index: main/textbox.lisp
===================================================================
--- main/textbox.lisp	(revision main,35)
+++ main/textbox.lisp	(revision main,36)
@@ -85,7 +85,11 @@
               (subseq s insertion-point (length s))))))
 
-(defun activate-textbox (textbox callback)
+(defun nothing (dummy)
+  (declare (ignore dummy)))
+
+(defun activate-textbox (textbox &optional (callback 'nothing))
   (with-slots (data window) textbox
     (cdk::c-keypad (window-pointer window) t)
+    (setf (insertion-point textbox) :end)
     (loop
        (let ((key (read-key window)))
@@ -110,4 +114,5 @@
             (if (or (keywordp key) (member key '(#\Return #\Tab #\Esc)))
                 (when (funcall callback key)
+                  (setf (insertion-point textbox) 0)
                   (return-from activate-textbox))
                 (multiple-value-bind (left right) (split textbox)