--- a/CodeGeneratorTests.st	Fri May 23 16:35:51 2014 +0200
+++ b/CodeGeneratorTests.st	Sat May 24 02:10:50 2014 +0200
@@ -215,18 +215,19 @@
 
     self assert: (self respondsTo: #mock_05).
     self assert: (self perform: #mock_05) == 10.
-    self assert: ((self class >> #mock_05) source includes: 'comment')
+    self assert: ((self class >> #mock_05) source includesString: 'comment')
 
     "Created: / 24-04-2014 / 11:28:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-05-2014 / 01:02:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CodeGeneratorTests class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTests.st,v 1.4 2014-04-24 09:33:37 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTests.st,v 1.5 2014-05-24 00:10:50 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: CodeGeneratorTests.st,v 1.4 2014-04-24 09:33:37 vrany Exp $'
+    ^ '$Id: CodeGeneratorTests.st,v 1.5 2014-05-24 00:10:50 vrany Exp $'
 ! !