--- a/DialogBox.st	Fri Mar 06 21:39:24 2020 +0100
+++ b/DialogBox.st	Fri Mar 06 21:54:36 2020 +0100
@@ -1326,7 +1326,9 @@
 
     |currentScreen|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+    "/ should be caught elsewhere (see eg. aboutToOpenDialogBox handler in expecco>>executeLoop)
+    "/ if caught here, we won't get activity log entries (which we want)
+    "/ UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
         ^ currentScreen 
@@ -1373,7 +1375,9 @@
 
     |dialog textHolder|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+    "/ should be caught elsewhere (see eg. aboutToOpenDialogBox handler in expecco>>executeLoop)
+    "/ if caught here, we won't get activity log entries (which we want)
+    "/ UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     textHolder := ValueHolder new.
     dialog := Dialog 
@@ -1397,7 +1401,9 @@
 
     |dialog textHolder|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+    "/ should be caught elsewhere (see eg. aboutToOpenDialogBox handler in expecco>>executeLoop)
+    "/ if caught here, we won't get activity log entries (which we want)
+    "/ UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     textHolder := ValueHolder new.
     dialog := Dialog 
@@ -1446,7 +1452,9 @@
 
     |currentScreen|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+    "/ should be caught elsewhere (see eg. aboutToOpenDialogBox handler in expecco>>executeLoop)
+    "/ if caught here, we won't get activity log entries (which we want)
+    "/ UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
         ^ currentScreen