diff --git a/6502/C64/cbmfiles/v4th-c16+ b/6502/C64/cbmfiles/v4th-c16+
index 1bfb30e..4e6da36 100644
Binary files a/6502/C64/cbmfiles/v4th-c16+ and b/6502/C64/cbmfiles/v4th-c16+ differ
diff --git a/6502/C64/cbmfiles/v4th-c16- b/6502/C64/cbmfiles/v4th-c16-
index a2a959f..01b1f66 100644
Binary files a/6502/C64/cbmfiles/v4th-c16- and b/6502/C64/cbmfiles/v4th-c16- differ
diff --git a/6502/C64/cbmfiles/v4th-c64 b/6502/C64/cbmfiles/v4th-c64
index 53df832..89dac12 100644
Binary files a/6502/C64/cbmfiles/v4th-c64 and b/6502/C64/cbmfiles/v4th-c64 differ
diff --git a/6502/C64/cbmfiles/v4th-x16 b/6502/C64/cbmfiles/v4th-x16
index 9e36648..9e79d4c 100644
Binary files a/6502/C64/cbmfiles/v4th-x16 and b/6502/C64/cbmfiles/v4th-x16 differ
diff --git a/6502/C64/cbmfiles/v4thblk-c16+ b/6502/C64/cbmfiles/v4thblk-c16+
index a8e27c4..38aa5e7 100644
Binary files a/6502/C64/cbmfiles/v4thblk-c16+ and b/6502/C64/cbmfiles/v4thblk-c16+ differ
diff --git a/6502/C64/cbmfiles/v4thblk-c16- b/6502/C64/cbmfiles/v4thblk-c16-
index 1c3fd42..17c9eed 100644
Binary files a/6502/C64/cbmfiles/v4thblk-c16- and b/6502/C64/cbmfiles/v4thblk-c16- differ
diff --git a/6502/C64/cbmfiles/v4thblk-c64 b/6502/C64/cbmfiles/v4thblk-c64
index 2a7cb92..9ecbfc2 100644
Binary files a/6502/C64/cbmfiles/v4thblk-c64 and b/6502/C64/cbmfiles/v4thblk-c64 differ
diff --git a/6502/C64/src/vf-head-c16.fth b/6502/C64/src/vf-head-c16.fth
index 012ecb2..ca8446a 100644
--- a/6502/C64/src/vf-head-c16.fth
+++ b/6502/C64/src/vf-head-c16.fth
@@ -28,5 +28,5 @@ here dup origin!
 $100 allot
 
 Create logo
- (C16+ ," volksFORTH-83 3.9.4-C16+ " )
- (C16- ," volksFORTH-83 3.9.4-C16- " )
+ (C16+ ," volksFORTH-83 3.9.5-C16+ " )
+ (C16- ," volksFORTH-83 3.9.5-C16- " )
diff --git a/6502/C64/src/vf-head-c64.fth b/6502/C64/src/vf-head-c64.fth
index 7e4d7f0..994bc03 100644
--- a/6502/C64/src/vf-head-c64.fth
+++ b/6502/C64/src/vf-head-c64.fth
@@ -28,4 +28,4 @@ here dup origin!
 $100 allot
 
 Create logo
-  ," volksFORTH-83 3.9.4-C64  "
+  ," volksFORTH-83 3.9.5-C64  "
diff --git a/6502/C64/src/vf-head-x16.fth b/6502/C64/src/vf-head-x16.fth
index 4671b87..4771059 100644
--- a/6502/C64/src/vf-head-x16.fth
+++ b/6502/C64/src/vf-head-x16.fth
@@ -27,4 +27,4 @@ here dup origin!
 $100 allot
 
 Create logo
-  ," volksFORTH-83 3.9.4-X16  "
+  ," volksFORTH-83 3.9.5-X16  "
diff --git a/6502/C64/src/vf-sys-x16.fth b/6502/C64/src/vf-sys-x16.fth
index e6d9244..1ec73e1 100644
--- a/6502/C64/src/vf-sys-x16.fth
+++ b/6502/C64/src/vf-sys-x16.fth
@@ -7,11 +7,10 @@ include vf-lbls-cbm.fth
 
 0ffd2 >label ConOut
 0febd >label KbdbufPeek
- 0289 >label IOStatus
- 028c >label MsgFlg
+ 0287 >label IOStatus
+ 028d >label MsgFlg
 09f2c >label BrdCol
- 0266 >label BkgCol
- 0284 >label PenCol
+ 0376 >label BkgPenCol
  0381 >label CurFlg  \ aka qtsw
  0385 >label InsCnt  \ aka insrt
 
@@ -95,9 +94,10 @@ Label first-init
  sei cld
  RomBank lda  $f8 # and  RomBank sta \ map in KERNAL ROM
  IOINIT jsr  CINT jsr  RESTOR jsr  \ init. and set I/O-Vectors
- ink-pot    lda BrdCol sta \ border
- ink-pot 1+ lda BkgCol sta \ backgrnd
- ink-pot 2+ lda PenCol sta \ pen
+ ink-pot    lda BrdCol sta  \ border
+ ink-pot 1+ lda
+ .a asl .a asl .a asl .a asl  \ backgrnd
+ ink-pot 2+ ora BkgPenCol sta  \ pen
  $0e # lda  ConOut jsr  \ lower/uppercase
  cli rts end-code
 first-init dup bootsystem 1+ !