--- a/AbstractSettingsApplication.st	Tue May 15 14:39:07 2018 +0200
+++ b/AbstractSettingsApplication.st	Tue May 15 17:04:25 2018 +0200
@@ -88,7 +88,7 @@
 !
 
 AbstractSettingsApplication subclass:#CommunicationLoggingSettingsAppl
-	instanceVariableNames:'logHTTPRequests logSOAPRequests'
+	instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -3857,8 +3857,17 @@
             (SpecCollection
                collection: (
                 (CheckBoxSpec
+                   label: 'Log Executed OS Commands'
+                   name: 'LogExecutedOSCommands'
+                   activeHelpKey: LogExecutedOSCommands
+                   model: LogExecutedOSCommands
+                   translateLabel: true
+                   extent: (Point 571 34)
+                 )
+                (CheckBoxSpec
                    label: 'Log Outgoing HTTP Requests on Transcript'
                    name: 'LogHTTPRequests'
+                   activeHelpKey: LogHTTPRequests
                    model: logHTTPRequests
                    translateLabel: true
                    extent: (Point 435 30)
@@ -3866,6 +3875,7 @@
                 (CheckBoxSpec
                    label: 'Log Outgoing SOAP Requests on Transcript'
                    name: 'LogSOAPRequests'
+                   activeHelpKey: LogSOAPRequests
                    model: logSOAPRequests
                    translateLabel: true
                    extent: (Point 435 30)
@@ -3886,9 +3896,18 @@
     ^ #(
         logHTTPRequests
         logSOAPRequests
+        logExecutedOSCommands
     )
 !
 
+logExecutedOSCommands
+    logExecutedOSCommands isNil ifTrue:[
+        logExecutedOSCommands := false asValue.
+        logExecutedOSCommands onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ logExecutedOSCommands.
+!
+
 logHTTPRequests
     logHTTPRequests isNil ifTrue:[
         logHTTPRequests := false asValue.
@@ -6412,6 +6431,9 @@
     Smalltalk loadPackage:'stx:goodies/webServer'.
     Smalltalk loadPackage:'stx:goodies/webServer/htmlTree'.
     Smalltalk loadPackage:'stx:goodies/webServer/comanche'.
+    Smalltalk loadPackage:'stx:goodies/webServer/comanche/stt'.
+    Smalltalk loadPackage:'stx:goodies/webServer/comanche/swiki'.
+    Smalltalk loadPackage:'stx:goodies/webServer/comanche/seaside2_5b4/squeakCompatibility'.
     Smalltalk loadPackage:'stx:goodies/webServer/ui'.
     self hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
 !