--- a/Launcher.st	Sat Jan 11 12:16:27 1997 +0100
+++ b/Launcher.st	Sat Jan 11 13:14:32 1997 +0100
@@ -1979,7 +1979,7 @@
      repository repositoryHolder localSourceFirst 
      showAccelerators sourceCacheDir cacheEntry
      component localCheck oldIndent nm fn manager
-     keepMethodHistory showErrorNotifier|
+     keepMethodHistory showErrorNotifier showVerboseStack|
 
     "/ 
     "/ extract relevant system settings ...
@@ -2010,6 +2010,7 @@
     ].
     showAccelerators := MenuView showAcceleratorKeys asValue.
     showErrorNotifier := (Exception emergencyHandler == Launcher notifyingEmergencyHandler) asValue.
+    showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
 
     sourceCacheDir := nil asValue.
 
@@ -2095,7 +2096,11 @@
     box addCheckBox:(resources string:'boxes return focus to previously active view') on:returnFocus.
     box addCheckBox:(resources string:'hostname in window labels') on:hostNameInLabel.
     box addCheckBox:(resources string:'show accelerator keys in menus') on:showAccelerators.
+
+    box addHorizontalLine.
+
     box addCheckBox:(resources string:'show error notifier before opening debugger') on:showErrorNotifier.
+    box addCheckBox:(resources string:'verbose backtrace by default in debugger') on:showVerboseStack.
 
     box 
         addHelpButtonFor:'Launcher/miscSettings.html';
@@ -2152,7 +2157,9 @@
                 Exception emergencyHandler:nil
             ] ifTrue:[
                 Exception emergencyHandler:(Launcher notifyingEmergencyHandler)
-            ]
+            ].
+            DebugView defaultVerboseBacktrace:(showVerboseStack value).
+
         ] ifFalse:[
             Smalltalk at:#SourceCodeManager put:nil
         ]
@@ -2160,7 +2167,7 @@
     box destroy
 
     "Modified: 9.9.1996 / 22:43:36 / stefan"
-    "Modified: 8.1.1997 / 14:53:22 / cg"
+    "Modified: 11.1.1997 / 12:21:43 / cg"
 !
 
 printerSettings
@@ -4397,5 +4404,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.227 1997-01-09 12:50:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.228 1997-01-11 12:14:32 cg Exp $'
 ! !