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