diff --git a/Core/Extensions.st b/Core/Extensions.st
index 18dae68..45586cc 100644
--- a/Core/Extensions.st
+++ b/Core/Extensions.st
@@ -20,6 +20,22 @@ String extend [
 	^self startsWith: aString
     ]
 
+    capitalized [
+	<category: '*Grease-GST-Core'>
+        | capitalized |
+
+        " fast case "
+        self isEmpty
+            ifTrue: [self copy.].
+
+        " detect the encoding "
+        capitalized := self copy.
+
+        capitalized isEmpty
+            ifFalse: [capitalized at: 1 put: ((capitalized at: 1) asUppercase).].
+        ^ capitalized
+    ]
+
     excerpt: aString [
 	<category: '*Grease-Core'>
 	"Answer an excerpt of the receiver that matches the first occurence of aString. If aString isn't found, nil is answered."
@@ -263,3 +279,10 @@ UndefinedObject extend [
 	<category: '*Grease-Core'>
     ]
 ]
+
+Symbol extend [
+    capitalized [
+        <category: '*Grease-GST-Core'>
+        ^ self asString capitalized asSymbol
+    ]
+]