Index: main/grid/display.lisp
===================================================================
--- main/grid/display.lisp	(revision main,57)
+++ main/grid/display.lisp	(revision main,58)
@@ -77,5 +77,5 @@
 (defun draw-cell (grid row column y x)
   (with-slots (data window) grid
-    (let ((text (item data row column)))
+    (let ((text (format nil "~A" (item data row column))))
       (unless (uses-display-strings data row column)
         (setf text (enquote text)))