diff --git a/applecorn.po b/applecorn.po
index 0486e7c..e181cd7 100644
Binary files a/applecorn.po and b/applecorn.po differ
diff --git a/mainmem.wild.s b/mainmem.wild.s
index 212e0d4..052dfc9 100644
--- a/mainmem.wild.s
+++ b/mainmem.wild.s
@@ -124,6 +124,7 @@ SEGMENT     LDY   #$00
             LDA   MOSFILE+1,X
             CMP   #'/'
             BEQ   :DONE
+            JSR   TOUPPER
             STA   SEGBUF+1,Y
             INX
             INY
@@ -140,6 +141,14 @@ SEGMENT     LDY   #$00
             SEC                 ; Last segment
             RTS
 
+* Convert char in A to uppercase
+TOUPPER     CMP   #'z'+1
+            BCS   :DONE         ; > 'z'
+            CMP   #'a'
+            BCC   :DONE         ; < 'a'
+            AND   #$DF          ; Clear $20 bits
+:DONE       RTS
+
 * See if SEGBUF contains any of '*', '#', '?'
 * Set carry if wild, clear otherwise
 HASWILD     LDX   #$00