src/JavaPackage.st
branchjk_new_structure
changeset 1622 02589b36c0b9
parent 1414 d80c88702bc9
--- a/src/JavaPackage.st	Sat Aug 18 06:57:46 2012 +0000
+++ b/src/JavaPackage.st	Sat Aug 18 07:16:44 2012 +0000
@@ -216,8 +216,15 @@
             sel first isLowercase ifTrue:[
                 JavaPackage class basicNew setName: (self name , '::' , sel) asSymbol
             ] ifFalse:[
-                JavaClassAccessor fullName: 
-                    (((self name asCollectionOfSubstringsSeparatedByAll:'::') allButFirst asStringWith:$/) , '/' , sel)
+                | fullName |
+
+                self == JAVA ifTrue:[
+                    fullName := sel
+                ] ifFalse:[
+                    fullName := (((self name asCollectionOfSubstringsSeparatedByAll:'::') allButFirst asStringWith:$/) , '/' , sel).
+                ].
+                JavaClassAccessor fullName: fullName
+
             ]
         ]
     ].