--- a/UserPreferences.st	Thu Jan 21 17:58:19 2016 +0000
+++ b/UserPreferences.st	Sat Jan 23 07:23:05 2016 +0000
@@ -4954,6 +4954,32 @@
     "
 !
 
+debuggerLogFile
+    "if non nil, any entered debugger writes a backrace to that logfile.
+     This is useful to record all session-problems"
+     
+    ^ self at:#debuggerLogFile ifAbsent:nil
+
+    "
+     UserPreferences current debuggerLogFile
+     UserPreferences current debuggerLogFile:'debug.log'
+     UserPreferences current debuggerLogFile:nil
+    "
+!
+
+debuggerLogFile:aFilename
+    "if non nil, any entered debugger writes a backrace to that logfile.
+     This is useful to record all session-problems"
+     
+    ^ self at:#debuggerLogFile put:aFilename
+
+    "
+     UserPreferences current debuggerLogFile
+     UserPreferences current debuggerLogFile:'debug.log'
+     UserPreferences current debuggerLogFile:nil
+    "
+!
+
 editToolbarVisibleInWorkspace
     "return the flag which defaults the edit-toolbar-visibility in a workspace application"