diff --git a/libsrc/common/strstr.s b/libsrc/common/strstr.s
index d24f1b0c9..6ab46148c 100644
--- a/libsrc/common/strstr.s
+++ b/libsrc/common/strstr.s
@@ -5,11 +5,11 @@
 ;
 
         .export         _strstr, _strcasestr
-        .import         popptr1, return0, tolower_a
+        .import         popptr1, return0, tolowerdirect
         .importzp       ptr1, ptr2, ptr3, ptr4, tmp1, tmp2
 
 maybe_lower:                    ; Lowercase char in A if needed
-        jmp     tolower_a       ; patched on entry with either JMP or RTS
+        jmp     tolowerdirect   ; patched on entry with either JMP or RTS
 
 _strstr:
         ldy     #$60            ; RTS
diff --git a/libsrc/common/tolower.s b/libsrc/common/tolower.s
index 4d02e4dfb..9c143f1ce 100644
--- a/libsrc/common/tolower.s
+++ b/libsrc/common/tolower.s
@@ -10,14 +10,14 @@
 ; int tolower (int c);
 ;
 
-        .export         _tolower, tolower_a
+        .export         _tolower, tolowerdirect
         .include        "ctype.inc"
         .import         ctypemaskdirect
 
 _tolower:
         cpx     #$00            ; out of range?
         bne     out             ; if so, return the argument unchanged
-tolower_a:
+tolowerdirect:
         pha                     ; save char
         jsr     ctypemaskdirect ; get character classification
         and     #CT_UPPER       ; upper case char?