Index: main/grid/display.lisp
===================================================================
--- main/grid/display.lisp	(revision main,22)
+++ main/grid/display.lisp	(revision main,26)
@@ -81,6 +81,9 @@
 
 (defun draw-cell (grid row column y x)
-  (with-slots (window) grid
-    (cdk::move-and-add-string window y x (item grid row column))))
+  (with-slots (data window) grid
+    (let ((text (item data row column)))
+      (unless (uses-display-strings data row column)
+        (setf text (enquote text)))
+      (render text window y x))))
 
 (defun draw-column (grid column x)