--- a/JavaUnresolvedConstant.st	Mon Aug 18 10:41:22 1997 +0000
+++ b/JavaUnresolvedConstant.st	Mon Aug 18 10:42:00 1997 +0000
@@ -70,12 +70,27 @@
 unresolvedClassNames
     "return a collection of unresolved class names"
 
+    |l|
+
     PatchLists isNil ifTrue:[^ #()].
-    ^ PatchLists keys 
+
+    "/ kludge - ignore those primitive classes ...
+    l := PatchLists keys 
+             select:[:clsName |
+                (clsName == #char
+                or:[clsName == #float
+                or:[clsName == #double
+                or:[clsName == #'unsigned short'
+                or:[clsName == #long
+                or:[clsName == #boolean]]]]]) not
+             ].
+    ^ l
 
     "
      self unresolvedClassNames 
     "
+
+    "Modified: 17.8.1997 / 20:06:46 / cg"
 ! !
 
 !JavaUnresolvedConstant methodsFor:'accessing'!
@@ -172,5 +187,5 @@
 !JavaUnresolvedConstant class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedConstant.st,v 1.7 1997/08/08 11:33:24 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedConstant.st,v 1.8 1997/08/18 10:42:00 cg Exp $'
 ! !