diff --git a/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo12.class/class/classesInCategory..st b/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo12.class/class/classesInCategory..st
new file mode 100644
index 00000000..f220e0ee
--- /dev/null
+++ b/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo12.class/class/classesInCategory..st
@@ -0,0 +1,6 @@
+class organization
+classesInCategory: aCategory
+	^ (Smalltalk organization tagForCategory: aCategory)
+		ifNotNil: [ :tag |
+			tag classNames collect: [ :className | Smalltalk at: className ] ]
+		ifNil: [ #() ]