diff --git a/GSTExtensions.st b/GSTExtensions.st
index 6ce1e52..463fae5 100644
--- a/GSTExtensions.st
+++ b/GSTExtensions.st
@@ -3,23 +3,27 @@
 String extend [
 
     expandMacros [
-        <category: '*OsmoCore-FromPharo'>
+        <category: '*PharoCompat'>
+        "From Pharo, for Phexample/OsmoCore, MIT license"
         ^self expandMacrosWithArguments: #()
     ]
 
     expandMacrosWith: anObject [
-        <category: '*OsmoCore-FromPharo'>
+        <category: '*PharoCompat'>
+        "From Pharo, for Phexample/OsmoCore, MIT license"
         ^self expandMacrosWithArguments: (Array with: anObject)
     ]
 
     expandMacrosWith: anObject with: anotherObject [
-        <category: '*OsmoCore-FromPharo'>
+        <category: '*PharoCompat'>
+        "From Pharo, for Phexample/OsmoCore, MIT license"
         ^self 
             expandMacrosWithArguments: (Array with: anObject with: anotherObject)
     ]
 
     expandMacrosWith: anObject with: anotherObject with: thirdObject [
-        <category: '*OsmoCore-FromPharo'>
+        <category: '*PharoCompat'>
+        "From Pharo, for Phexample/OsmoCore, MIT license"
         ^self expandMacrosWithArguments: (Array 
                 with: anObject
                 with: anotherObject
@@ -27,7 +31,8 @@ String extend [
     ]
 
     expandMacrosWith: anObject with: anotherObject with: thirdObject with: fourthObject [
-        <category: '*OsmoCore-FromPharo'>
+        <category: '*PharoCompat'>
+        "From Pharo, for Phexample/OsmoCore, MIT license"
         ^self expandMacrosWithArguments: (Array 
                 with: anObject
                 with: anotherObject
@@ -36,7 +41,8 @@ String extend [
     ]
 
     expandMacrosWithArguments: anArray [
-        <category: '*OsmoCore-FromPharo'>
+        <category: '*PharoCompat'>
+        "From Pharo, for Phexample/OsmoCore, MIT license"
         | newStream readStream char index |
         newStream := (String new: self size) writeStream.
         readStream := self readStream.