--- a/JavaConstantPool.st	Thu Feb 05 11:12:19 1998 +0000
+++ b/JavaConstantPool.st	Thu Feb 05 11:13:33 1998 +0000
@@ -164,6 +164,8 @@
 ].
 
     self keysAndValuesDo:[:index :constItem |
+        |nameIndex|
+
         constItem == oldClass ifTrue:[
             self at:index put:newClass
         ] ifFalse:[
@@ -181,7 +183,18 @@
                             constItem isJavaClass ifTrue:[
                                 constItem fullName = oldClass fullName ifTrue:[
                                     'JAVA: class update by name [in pool].' infoPrintCR.
-                                    self at:index put:newClass
+                                    newClass isNil ifTrue:[
+                                        "/ mhm - must find a slot for the classes name
+                                        nameIndex := -1.
+                                        self 
+                                            at:index
+                                            put:(JavaUnresolvedClassConstant
+                                                    pool:self
+                                                    poolIndex:index
+                                                    nameIndex:nameIndex)
+                                    ] ifFalse:[
+                                        self at:index put:newClass
+                                    ]
                                 ]
                             ]
                         ]
@@ -191,11 +204,11 @@
         ]
     ]
 
-    "Modified: 7.8.1997 / 19:17:38 / cg"
+    "Modified: / 4.2.1998 / 22:12:03 / cg"
 ! !
 
 !JavaConstantPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaConstantPool.st,v 1.8 1998/01/17 14:43:49 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaConstantPool.st,v 1.9 1998/02/05 11:12:36 cg Exp $'
 ! !