--- a/JavaClass.st	Tue Jul 02 19:54:53 1996 +0000
+++ b/JavaClass.st	Tue Jul 02 21:10:52 1996 +0000
@@ -588,6 +588,16 @@
 !
 
 hasInterface:aJavaInterface
+    interfaces size > 0 ifTrue:[
+        self interfaces do:[:if |
+            aJavaInterface == if ifTrue:[
+                self halt.
+                ^ true
+            ].
+        ]
+    ].
+"/  ^ false.
+
     aJavaInterface methodDictionary keysAndValuesDo:[:sel :mthd |
         (self canUnderstand:sel) ifFalse:[
             self halt.
@@ -685,6 +695,6 @@
 !JavaClass  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.35 1996/07/02 19:54:41 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.36 1996/07/02 21:09:22 cg Exp $'
 ! !
 JavaClass initialize!