--- a/DebugView.st	Wed Feb 22 15:02:11 2006 +0100
+++ b/DebugView.st	Wed Feb 22 15:04:07 2006 +0100
@@ -4800,9 +4800,13 @@
 
     (sel == #do:
     or:[sel == #from:to:do:
-    or:[sel == #keysAndValuesDo:]]) ifTrue:[
+    or:[sel == #keysAndValuesDo:
+    or:[sel == #doWithIndex:]]]) ifTrue:[
         mClass == Array ifTrue:[^ false].
         mClass == OrderedCollection ifTrue:[^ false].
+        mClass == Set ifTrue:[^ false].
+        mClass == Dictionary ifTrue:[^ false].
+        mClass == Interval ifTrue:[^ false].
     ].
     (sel == #perform: 
     or:[sel == #perform:with:
@@ -5963,7 +5967,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.391 2006-02-22 14:02:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.392 2006-02-22 14:04:07 cg Exp $'
 ! !
 
 DebugView initialize!