--- a/JavaPackage.st	Tue Sep 03 01:18:46 2013 +0100
+++ b/JavaPackage.st	Tue Sep 03 14:09:43 2013 +0100
@@ -59,7 +59,7 @@
 
     "Create JAVA namespace (for easy class access)"
     Class withoutUpdatingChangesDo:[
-	self name: #JAVA
+	     self name: #JAVA
     ]
 
     "Created: / 28-02-2012 / 19:33:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -272,8 +272,8 @@
     "Anser true, if receiver is a java package. My subclasses are java packages"
 
     ^self ~~ JavaPackage 
-        and:[name ~~ #JAVA
-        and:[(name includes: $:)]]
+        and:[self name ~~ #JAVA
+        and:[(self name includes: $:)]]
 
     "Created: / 04-12-2011 / 12:22:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 02-09-2013 / 17:52:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"