JavaPackage.st
branchjv
changeset 18201 667dba93cccc
parent 17055 9c4f269a8383
child 19017 2bc24e4f3e8a
--- a/JavaPackage.st	Wed Apr 01 10:20:10 2015 +0100
+++ b/JavaPackage.st	Fri Apr 03 16:52:38 2015 +0100
@@ -100,7 +100,7 @@
                     thisNamespace isBehavior ifFalse:[
                          self error:'name conflict: java package ' , aName , ' vs. global with the same name'.
                     ].
-                    (thisNamespace ~~ JAVA and:[thisNamespace isJavaPackage not]) ifTrue:[
+                    (thisNamespace ~~ JAVA and:[thisNamespace isJavaPackage not and:[(thisNamespace name startsWith: #'JAVA_') not]]) ifTrue:[
                         self error:'name conflict: non-java package ' , aName , 'aleady exists'.
                     ].
                 ]