Index: main/grid/test.lisp
===================================================================
--- main/grid/test.lisp	(revision main,55)
+++ main/grid/test.lisp	(revision main,56)
@@ -10,4 +10,7 @@
 
 (defmethod rows ((gd test)) 10)
+
+(defmethod header-rows ((gd test))
+  1)
 
 (defmethod columns ((gd test)) 10)
@@ -41,5 +44,5 @@
       (clear screen)
       (with-subwindow (window screen 5 16 0 0)
-        (let ((grid (make-grid window data :header-columns 1 :header-rows 1)))
+        (let ((grid (make-grid window data :header-columns 1)))
           (flet ((try (i)
                    (setf (row-scroll grid) i)
@@ -57,5 +60,5 @@
             (try 99))))
       (clear screen)
-      (let ((grid (make-grid screen data :header-columns 1 :header-rows 1)))
+      (let ((grid (make-grid screen data :header-columns 1)))
         (draw grid)
         (read-key screen)))))