diff --git a/prelude.f b/prelude.f
index 5a49cc3..cbabfce 100644
--- a/prelude.f
+++ b/prelude.f
@@ -88,7 +88,7 @@
 ; IMMEDIATE
 
 : EMIT-DIGIT
-  DUP 10 < IF CHAR 0 ELSE CHAR A THEN
+  DUP 10 < IF CHAR 0 ELSE 10 - CHAR A THEN
   + EMIT
 ;