--- a/UnaryNode.st	Thu Apr 19 10:02:53 2012 +0200
+++ b/UnaryNode.st	Thu Apr 19 10:03:14 2012 +0200
@@ -330,6 +330,18 @@
 
 !UnaryNode methodsFor:'testing'!
 
+isJavaPackageReference
+    "Return true, given node is JAVA class reference in form:
+        JAVA package1 package2
+    "
+
+    ^receiver isJavaPackageReference 
+        and:[selector first isLowercase
+            and:[selector isUnary]]
+
+    "Created: / 19-04-2012 / 09:52:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isUnaryMessage
     "return true, if this node is one for a unary message"
 
@@ -352,9 +364,9 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.55 2011-07-25 22:33:18 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.56 2012-04-19 08:03:14 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.55 2011-07-25 22:33:18 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.56 2012-04-19 08:03:14 vrany Exp $'
 ! !