--- a/JavaClass.st Fri Sep 01 15:22:34 2000 +0000
+++ b/JavaClass.st Fri Sep 01 17:51:57 2000 +0000
@@ -761,7 +761,9 @@
i := fullName lastIndexOf:$/.
p := fullName copyTo:i - 1.
-
+ p size == 0 ifTrue:[
+ ^ 'java'
+ ].
"/ components := fullName asCollectionOfSubstringsSeparatedBy:$/.
"/ components size > 1 ifTrue:[
"/ p := (components copyWithoutLast:1) asStringWith:$/
@@ -1777,6 +1779,6 @@
!JavaClass class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.116 2000/09/01 10:09:50 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.117 2000/09/01 17:51:57 cg Exp $'
! !
JavaClass initialize!