--- a/DebugView.st	Sun Aug 25 20:44:52 2013 +0200
+++ b/DebugView.st	Sun Aug 25 23:34:06 2013 +0200
@@ -4644,7 +4644,7 @@
     contextArray keysAndValuesDo:[:i :c |
         |nextCon dialog idx|
 
-        c selector == #openModal ifTrue:[
+        ((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
             dialog := c receiver.
             idx := i + 1.
             nextCon := contextArray at:idx.
@@ -6794,7 +6794,7 @@
                     ]
                 ]
             ] ifFalse:[
-                con selector == #openModal ifTrue:[
+                ((con selector == #openModal) or:[con selector == #openModal:]) ifTrue:[
                     isStoppedInModalDialog := true.
                 ].
             ].
@@ -8746,15 +8746,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.615 2013-08-25 16:36:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.616 2013-08-25 21:34:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.615 2013-08-25 16:36:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.616 2013-08-25 21:34:06 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.615 2013-08-25 16:36:09 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.616 2013-08-25 21:34:06 cg Exp $'
 ! !