Index: main/simple-table.lisp
===================================================================
--- main/simple-table.lisp	(revision main,77)
+++ main/simple-table.lisp	(revision main,83)
@@ -31,5 +31,9 @@
 
 (defmethod selected-row ((tbl simple-table))
-  (elt (data tbl) (selected-row (model tbl))))
+  "Returns NIL if no rows are present."
+  (let ((data (data tbl))
+        (idx (selected-row (model tbl))))
+    (handler-case (elt data idx)
+      (t () nil))))
 
 (defmethod scroll-percent ((tbl simple-table))