--- a/DebugView.st	Sat Sep 14 03:34:26 2013 +0200
+++ b/DebugView.st	Sun Sep 15 14:43:20 2013 +0200
@@ -5460,17 +5460,22 @@
      AND it has an applicaiton, return it.
      Otherwise, return nil"
 
-    |p wg app|
+    |p wgs app|
 
     p := inspectedProcess ? Processor activeProcess.
     (p notNil and:[p isGUIProcess]) ifTrue:[
-        wg := WindowGroup scheduledWindowGroups detect:[:wg | wg process == p] ifNone:nil.
-        [wg notNil] whileTrue:[
-            (app := wg application) notNil ifTrue:[^ app].
-            wg isModal ifTrue:[
-                wg := wg previousGroup
-            ] ifFalse:[
-                wg := nil.
+        wgs := WindowGroup scheduledWindowGroups select:[:wg | wg process == p].
+        wgs do:[:wg |
+            |wgi|
+
+            wgi := wg.
+            [wgi notNil] whileTrue:[
+                (app := wgi application) notNil ifTrue:[^ app].
+                wgi isModal ifTrue:[
+                    wgi := wgi previousGroup
+                ] ifFalse:[
+                    wgi := nil.
+                ]
             ]
         ]
     ].
@@ -7773,7 +7778,7 @@
                 ^ true.
             ].
 
-            "/ thats a big hack, but I am tired of navigating to find the missing menu message...
+            "/ that's a big hack, but I am tired of navigating to find the missing menu message...
             "/ you will thank me!!
             mthd selector == #error:mayProceed: ifTrue:[
                 (callee receiver isKindOf:MenuPanel) ifTrue:[
@@ -9013,15 +9018,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.636 2013-09-10 18:29:57 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.637 2013-09-15 12:43:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.636 2013-09-10 18:29:57 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.637 2013-09-15 12:43:20 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.636 2013-09-10 18:29:57 ab Exp $'
+    ^ '$Id: DebugView.st,v 1.637 2013-09-15 12:43:20 cg Exp $'
 ! !