diff --git a/main.rkt b/main.rkt
index b74f004..37a5f3f 100644
--- a/main.rkt
+++ b/main.rkt
@@ -109,7 +109,7 @@
     (define/override (after-new-child child)
       (super after-new-child child)
       (when (eq? creating-row #f)
-        (let ((cell (get-cell* current-col current-row)))
+        (let ((cell (cell* current-col current-row)))
           (send child reparent cell))
         (set! current-col (+ current-col 1))
         (when (>= current-col columns)