Index: main/simple-table.lisp
===================================================================
--- main/simple-table.lisp	(revision main,73)
+++ main/simple-table.lisp	(revision main,75)
@@ -57,6 +57,7 @@
     (flet ((notify ()
              (funcall select-callback)
-             (when (ensure-row-visible grid (1+ (selected-row model)))
-               (funcall scroll-callback))))
+             (let ((row (selected-row model)))
+               (when (and row (ensure-row-visible grid (1+ row)))
+                 (funcall scroll-callback)))))
       (notify)
       (loop