--- a/JavaClassAccessor.st	Tue Oct 08 19:16:39 2013 +0100
+++ b/JavaClassAccessor.st	Thu Oct 10 00:08:11 2013 +0100
@@ -21,7 +21,7 @@
 "{ Package: 'stx:libjava' }"
 
 Object subclass:#JavaClassAccessor
-	instanceVariableNames:'name fullName package loading'
+	instanceVariableNames:'name binaryName package loading'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Languages-Java-Classes'
@@ -57,15 +57,23 @@
 
 fullName: aSymbol
 
-    ^self new setFullName: aSymbol
+    ^self new setBinaryName: aSymbol
 
     "Created: / 28-02-2012 / 19:20:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!JavaClassAccessor methodsFor:'* As yet uncategorized *'!
+
+constantPool
+    ^ #()
+
+    "Created: / 08-10-2013 / 23:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !JavaClassAccessor methodsFor:'accessing'!
 
 fullName
-    ^ fullName
+    ^ binaryName
 !
 
 name
@@ -82,7 +90,7 @@
     cls isNil ifTrue:[
         [ 
             loading := true.
-            cls := JavaVM classForName: (fullName copyReplaceAll: $/ with: $.)
+            cls := JavaVM classForName: (binaryName copyReplaceAll: $/ with: $.)
         ] ensure:[
             loading := false
         ].
@@ -98,10 +106,10 @@
     | cls |
     [
         loading := true.
-        cls := JavaVM registry classNamed: fullName.
+        cls := JavaVM registry classNamed: binaryName.
         cls isNil ifTrue:[
             "Hmm...maybe somebody will provide me the class, let's try"    
-            cls := JavaClassQuery query: fullName
+            cls := JavaClassQuery query: binaryName
         ].
     ] ensure:[
         loading := false.
@@ -139,11 +147,9 @@
 
 !JavaClassAccessor methodsFor:'initialization'!
 
-setFullName: aSymbol
-    fullName := aSymbol.
-    name := 'JAVA::' , ((fullName tokensBasedOn: $/) asStringWith: '::')
-
-    "Created: / 28-02-2012 / 19:21:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+setBinaryName: aSymbol 
+    binaryName := aSymbol.
+    name := 'JAVA::' , ((binaryName tokensBasedOn: $/) asStringWith: '::')
 ! !
 
 !JavaClassAccessor methodsFor:'instance creation'!
@@ -176,7 +182,7 @@
 
 printOn:aStream
     aStream nextPutAll: 'JAVA '.
-    (fullName tokensBasedOn: $/) 
+    (binaryName tokensBasedOn: $/) 
         do:[:component|aStream nextPutAll: component]
         separatedBy:[aStream space].