--- a/refactoring_custom/SmallSense__CustomTestCaseCodeGenerator.st	Tue Apr 12 18:50:19 2016 +0100
+++ b/refactoring_custom/SmallSense__CustomTestCaseCodeGenerator.st	Sat Apr 23 18:05:54 2016 +0100
@@ -89,7 +89,7 @@
     | classes |
 
     classes := aCustomContext selectedClasses.
-    ^ classes isEmptyOrNil or:[ classes noneSatisfy: [:cls | cls inheritsFrom: Smalltalk::TestCase ] ].
+    ^ classes isEmptyOrNil or:[ classes noneSatisfy: [:cls | cls inheritsFrom: (Smalltalk at:#TestCase) ] ].
 
     "Modified: / 12-06-2015 / 20:45:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !