--- a/Launcher.st	Sat Jan 11 14:48:26 1997 +0100
+++ b/Launcher.st	Sat Jan 11 18:40:32 1997 +0100
@@ -183,12 +183,13 @@
      into the debugger."
 
     NotifyingEmergencyHandler isNil ifTrue:[
-        NotifyingEmergencyHandler := [:ex | nil errorNotify:ex errorString ]
+        NotifyingEmergencyHandler := [:ex | nil errorNotify:ex errorString
+                                                from:ex suspendedContext ]
     ].
     ^ NotifyingEmergencyHandler
 
     "Created: 7.1.1997 / 22:18:19 / cg"
-    "Modified: 8.1.1997 / 15:02:46 / cg"
+    "Modified: 11.1.1997 / 17:54:08 / cg"
 !
 
 smallAboutIcon
@@ -4404,5 +4405,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.228 1997-01-11 12:14:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.229 1997-01-11 17:40:32 cg Exp $'
 ! !