--- a/FlyByHelp.st	Wed May 06 10:48:11 2009 +0200
+++ b/FlyByHelp.st	Wed May 06 15:21:12 2009 +0200
@@ -245,13 +245,15 @@
 showHelp:aHelpText for:view
     "show the help text for aView"
 
-    |org p v dev|
+    |wg org p v dev|
 
-    view windowGroup isInModalLoop ifTrue:[
+    (wg := view windowGroup) notNil ifTrue:[
+        wg isInModalLoop ifTrue:[
 "/ Transcript showCR:'1'.
-        view windowGroup isModal ifFalse:[
+            wg isModal ifFalse:[
 "/ Transcript showCR:'2'.
-            ^ self
+                ^ self
+            ].
         ].
     ].
 
@@ -331,7 +333,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.26 2009-05-02 09:17:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.27 2009-05-06 13:21:12 cg Exp $'
 ! !
 
 FlyByHelp initialize!