--- a/Launcher.st	Wed Jan 15 18:55:07 1997 +0100
+++ b/Launcher.st	Wed Jan 15 21:16:01 1997 +0100
@@ -210,14 +210,16 @@
      for exceptions), which does errorNotification before going
      into the debugger."
 
+    "Remember the handlerBlock, to be able to determine if the current
+     handler is the notifying one."
+
     NotifyingEmergencyHandler isNil ifTrue:[
-        NotifyingEmergencyHandler := [:ex | nil errorNotify:ex errorString
-                                                from:ex suspendedContext ]
+        NotifyingEmergencyHandler := Exception notifyingEmergencyHandler
     ].
     ^ NotifyingEmergencyHandler
 
     "Created: 7.1.1997 / 22:18:19 / cg"
-    "Modified: 11.1.1997 / 17:54:08 / cg"
+    "Modified: 15.1.1997 / 21:15:38 / cg"
 !
 
 smallAboutIcon
@@ -4451,5 +4453,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.231 1997-01-14 11:56:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.232 1997-01-15 20:16:01 cg Exp $'
 ! !