diff --git a/repository/MonticelloFileTree-Core.package/MCFileTreeStCypressWriter.class/class/fileNameForSelector..st b/repository/MonticelloFileTree-Core.package/MCFileTreeStCypressWriter.class/class/fileNameForSelector..st
new file mode 100644
index 00000000..ab89c78b
--- /dev/null
+++ b/repository/MonticelloFileTree-Core.package/MCFileTreeStCypressWriter.class/class/fileNameForSelector..st
@@ -0,0 +1,26 @@
+accessing
+fileNameForSelector: selector
+  ^ (selector includes: $:)
+    ifTrue: [ 
+      selector
+        collect: [ :each | 
+          each = $:
+            ifTrue: [ $. ]
+            ifFalse: [ each ] ] ]
+    ifFalse: [ 
+      (self specials includes: selector first)
+        ifFalse: [ selector ]
+        ifTrue: [ 
+          | output specials |
+          specials := self specials.
+          output := String new writeStream.
+          output nextPut: $^.
+          selector
+            do: [ :each | 
+              output
+                nextPutAll:
+                  ((specials includes: each)
+                    ifTrue: [ specials at: each ]
+                    ifFalse: [ each asString ]) ]
+            separatedBy: [ output nextPut: $. ].
+          output contents ] ]
diff --git a/repository/MonticelloFileTree-Core.package/MCFileTreeStCypressWriter.class/instance/fileNameForSelector..st b/repository/MonticelloFileTree-Core.package/MCFileTreeStCypressWriter.class/instance/fileNameForSelector..st
index 9455a220..3919e2b8 100644
--- a/repository/MonticelloFileTree-Core.package/MCFileTreeStCypressWriter.class/instance/fileNameForSelector..st
+++ b/repository/MonticelloFileTree-Core.package/MCFileTreeStCypressWriter.class/instance/fileNameForSelector..st
@@ -1,26 +1,3 @@
 private
 fileNameForSelector: selector
-  ^ selector last = $:
-    ifTrue: [ 
-      selector
-        collect: [ :each | 
-          each = $:
-            ifTrue: [ $. ]
-            ifFalse: [ each ] ] ]
-    ifFalse: [ 
-      (self class specials includes: selector first)
-        ifFalse: [ selector ]
-        ifTrue: [ 
-          | output specials |
-          specials := self class specials.
-          output := String new writeStream.
-          output nextPut: $^.
-          selector
-            do: [ :each | 
-              output
-                nextPutAll:
-                  ((specials includes: each)
-                    ifTrue: [ specials at: each ]
-                    ifFalse: [ each asString ]) ]
-            separatedBy: [ output nextPut: $. ].
-          output contents ] ]
\ No newline at end of file
+  ^ self class fileNameForSelector: selector