diff --git a/gib-gab-gob/board.scm b/gib-gab-gob/board.scm
index 0d58bbe..dab828f 100644
--- a/gib-gab-gob/board.scm
+++ b/gib-gab-gob/board.scm
@@ -12,6 +12,9 @@
 (define (make-board)
   (make-array #f ggg-size ggg-size))
 
+(define (board-ref board x y)
+  (array-ref board y x))
+
 (define (board-assert-vacant board x y)
   (define ref (board-ref board x y))
   (if ref (error "That space is already occupied with:" ref) ref))