Index: main/grid/row-selectable.lisp
===================================================================
--- main/grid/row-selectable.lisp	(revision main,60)
+++ main/grid/row-selectable.lisp	(revision main,62)
@@ -9,5 +9,7 @@
 
 (defmethod (setf selected-row) :around (i (d row-selectable))
-  (call-next-method (bound i 0 (rows d)) d))
+  ;; TODO: This was hacked to take out header rows from other classes
+  ;; that I wish didn't affect the call.
+  (call-next-method (bound i 0 (- (rows d) (header-rows d) 1)) d))
 
 (defvar *recursive* nil)