--- a/src/JavaClass.st	Mon Dec 05 08:53:23 2011 +0000
+++ b/src/JavaClass.st	Mon Dec 05 10:53:00 2011 +0000
@@ -106,7 +106,7 @@
 
     nameComponents := aString asCollectionOfSubstringsSeparatedBy:$/.
     nameComponents size > 1 ifTrue:[
-        cls category:((nameComponents asStringWith:$/ from:1 to:(nameComponents size - 1))
+        cls setCategory:((nameComponents asStringWith:$/ from:1 to:(nameComponents size - 1))
                             replaceAll:$/ with:$. ).
     ].
 
@@ -147,7 +147,7 @@
 
     "Created: / 15-04-1996 / 15:52:55 / cg"
     "Modified: / 03-01-1998 / 22:32:25 / cg"
-    "Modified: / 19-11-2011 / 12:03:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-12-2011 / 10:07:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 name:aString