Index: main/simple-table.lisp
===================================================================
--- main/simple-table.lisp	(revision main,72)
+++ main/simple-table.lisp	(revision main,73)
@@ -25,6 +25,8 @@
 (defmethod (setf data) :after (d (tbl simple-table))
   (let ((wrapper (make-instance 'hash-per-row-grid-data
-                                :row-tables d :keys (keys tbl))))
-    (setf (wrapped-data (model tbl)) wrapper)))
+                                :row-tables d :keys (keys tbl)))
+        (i (selected-row (model tbl))))
+    (setf (wrapped-data (model tbl)) wrapper
+          (selected-row (model tbl)) i)))
 
 (defmethod selected-row ((tbl simple-table))