--- a/JavaConstantPool.st	Fri Aug 29 16:03:19 1997 +0000
+++ b/JavaConstantPool.st	Mon Jan 05 18:49:32 1998 +0000
@@ -1,3 +1,5 @@
+'From Smalltalk/X, Version:3.3.1 on 4-jan-1998 at 4:22:53 pm'                   !
+
 Array subclass:#JavaConstantPool
 	instanceVariableNames:'owner'
 	classVariableNames:''
@@ -146,6 +148,17 @@
 
 !JavaConstantPool methodsFor:'special'!
 
+classReferencesDo:aBlock
+    self do:[:constItem |
+        constItem isJavaClass ifTrue:[
+            aBlock value:constItem
+        ] 
+    ]
+
+    "Modified: / 7.8.1997 / 19:17:38 / cg"
+    "Created: / 4.1.1998 / 00:40:11 / cg"
+!
+
 updateClassRefsFrom:oldClass to:newClass
 owner == oldClass ifTrue:[
     self halt.
@@ -186,5 +199,5 @@
 !JavaConstantPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaConstantPool.st,v 1.6 1997/08/19 13:29:23 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaConstantPool.st,v 1.7 1998/01/05 18:47:11 cg Exp $'
 ! !