diff --git a/libsrc/c65/cpeekcolor.s b/libsrc/c65/cpeekcolor.s
index f4b4a5573..66bb03f4e 100644
--- a/libsrc/c65/cpeekcolor.s
+++ b/libsrc/c65/cpeekcolor.s
@@ -18,8 +18,19 @@ _cpeekcolor:
         lda     SCREEN_PTR
         sta     ptr1
 
+        php
+        sei
+        lda     $D030
+        ora     #$01
+        sta     $D030
         ldy     #0
         lda     (ptr1),y
+        tay
+        lda     $D030
+        and     #$FE
+        sta     $D030
+        tya
+        plp
 
         ldx     #>$0000
         rts
diff --git a/libsrc/c65/cputc.s b/libsrc/c65/cputc.s
index 926776df0..d033ab234 100644
--- a/libsrc/c65/cputc.s
+++ b/libsrc/c65/cputc.s
@@ -113,10 +113,19 @@ putchar:
 
         lda     ptr4 + 1
         clc
-        adc     #>$d000
+        adc     #>$D000
         sta     ptr4 + 1
 
+        php
+        sei
+        lda     $D030
+        ora     #$01
+        sta     $D030
         lda     CHARCOLOR
         sta     (ptr4),y    ; Set color
+        lda     $D030
+        and     #$FE
+        sta     $D030
+        plp
 
         rts