diff --git a/lib/std/string.lua b/lib/std/string.lua
index 6ad9014..8c85f97 100644
--- a/lib/std/string.lua
+++ b/lib/std/string.lua
@@ -126,9 +126,7 @@ end
 
 
 local function caps(s)
-   return(gsub(s, '(%w)([%w]*)', function(l, ls)
-      return upper(l) .. ls
-   end))
+   return(gsub(s, '%f[%w]%l', string.upper))
 end