--- a/JavaUnresolvedClassConstant.st	Thu Nov 12 20:32:20 1998 +0000
+++ b/JavaUnresolvedClassConstant.st	Thu Nov 12 20:33:33 1998 +0000
@@ -178,6 +178,20 @@
     ^ true
 
     "Created: / 20.10.1998 / 17:43:36 / cg"
+!
+
+package
+    "extract from the fullName"
+
+    |components|
+
+    components := fullName asCollectionOfSubstringsSeparatedBy:$/.
+    components size > 1 ifTrue:[
+        ^ (components copyWithoutLast:1) asStringWith:$/
+    ].
+    ^ fullName
+
+    "Created: / 12.11.1998 / 21:11:30 / cg"
 ! !
 
 !JavaUnresolvedClassConstant methodsFor:'resolving'!
@@ -294,5 +308,5 @@
 !JavaUnresolvedClassConstant class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.32 1998/11/11 14:41:11 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.33 1998/11/12 20:33:33 cg Exp $'
 ! !