--- a/SmallSense__JavaCompletionEngineSimple.st	Fri Oct 04 09:01:12 2013 +0100
+++ b/SmallSense__JavaCompletionEngineSimple.st	Sat Oct 05 00:40:01 2013 +0100
@@ -73,10 +73,11 @@
     "Modified: / 03-10-2013 / 17:48:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !JavaCompletionEngineSimple methodsFor:'completion-individual'!
 
 addClassesStartingWith: prefix
-    self allClassesDo:[:cls|
+    self javaClassesDo:[:cls|
         | name i |
 
         name := cls name.
@@ -91,7 +92,7 @@
     ].
 
     "Created: / 03-10-2013 / 11:16:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-10-2013 / 18:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-10-2013 / 13:11:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addFieldsStartingWith: prefix
@@ -123,25 +124,5 @@
     ^ self addMethodsStartingWith: prefix filter: [:m | m isJavaMethod ]
 
     "Created: / 03-10-2013 / 18:01:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-allClassesDo: aBlock
-    | loader loaders |
-
-    loaders := Set new.
-    loader := (class notNil and:[class isJavaClass]) ifTrue:[class classLoader] ifFalse:[JavaVM systemClassLoader].
-    [ loader notNil ] whileTrue:[
-        loaders add: loader.
-        loader := loader instVarNamed: #parent.
-    ].
-    loaders add: nil.
-
-    JavaVM registry  classesDo:[:cls|
-        (loaders includes: cls classLoader) ifTrue:[
-            aBlock value: cls.
-        ].
-    ].
-
-    "Created: / 03-10-2013 / 17:52:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !