1 files changed, 1 insertions, 1 deletions
diff --git a/demo3 b/demo3
index 760857c..d2ec257 100755
--- a/demo3
+++ b/demo3
@@ -13,6 +13,6 @@
 
 (defun relabel (button number)
   (let* ((old (gtk_button_get_label button))
-         (isdigits (<= 0 (- (char-int (aref old 0)) (char-int #\0)) 9))
+         (isdigits (<= 0 (- (chr-int [old 0]) (chr-int #\0)) 9))
          (new (format nil (if isdigits "~@R" "~d") number)))
     (xlabel button new)))