diff --git a/libsrc/cbm/c_save.s b/libsrc/cbm/c_save.s
index e17471fa7..115d89242 100644
--- a/libsrc/cbm/c_save.s
+++ b/libsrc/cbm/c_save.s
@@ -8,7 +8,7 @@
         .import         SAVE
         .import         popax
         .importzp       ptr1, tmp1
-                            
+
 
 _cbm_k_save:
         sta     tmp1            ; store end address
@@ -20,6 +20,7 @@ _cbm_k_save:
         ldx     tmp1
         ldy     tmp1+1
         jsr     SAVE
+	ldx     #0              ; Clear high byte
 	bcs	@NotOk
-        lda     #0
+        txa
 @NotOk:	rts