diff --git a/SMILEBASIC/builtinfunctions.d b/SMILEBASIC/builtinfunctions.d
index f8ca773..1bfc331 100644
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -517,7 +517,7 @@ class BuiltinFunction
     }
     static void GPUTCHR(PetitComputer p, int x, int y, Value str, int color)
     {
-        GPUTCHR(p, x, y, str, 1, 1, p.graphic.gcolor);
+        GPUTCHR(p, x, y, str, 1, 1, color);
     }
     static void GPUTCHR(PetitComputer p, int x, int y, Value str, int scalex, int scaley)
     {