diff --git a/src/Utils/PathPiece.hs b/src/Utils/PathPiece.hs
index cff91d976..0aa1a364c 100644
--- a/src/Utils/PathPiece.hs
+++ b/src/Utils/PathPiece.hs
@@ -44,6 +44,8 @@ splitCamel = map fromList . reverse . helper (error "hasChange undefined at star
       | sameCategory w c
       , null ws'         = helper (Char.isLower w) items (c:ws) cs
       | sameCategory w c = helper hadChange items (c:ws) cs
+      | Char.isLower w
+      , Char.isUpper c   = helper True (reverse ws :items) [c] cs
       | null ws'         = helper True items (c:ws) cs
       | not hadChange    = helper True (reverse ws':items) [c,w] cs
       | otherwise        = helper True (reverse ws :items) [c] cs