--- a/SmallSense__TestCase.st	Mon Sep 16 18:13:00 2013 +0100
+++ b/SmallSense__TestCase.st	Mon Sep 16 23:20:08 2013 +0100
@@ -25,7 +25,7 @@
 doForSource:src 
     |parser|
 
-    parser := SmallSenseParser new.
+    parser := SmalltalkParser new.
     parser sourceText:('gen',src) asText.
     parser 
         parseMethod:'gen' , src
@@ -36,6 +36,7 @@
 
     "Created: / 16-03-2011 / 12:27:38 / Jakub <zelenja7@fel.cvut.cz>"
     "Modified: / 18-03-2011 / 21:57:21 / Jakub <zelenja7@fel.cvut.cz>"
+    "Modified: / 16-09-2013 / 23:16:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 processMethod: aCompiledMethod