diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/callback..st b/repository/JQuery-Core.package/JQAjax.class/instance/callback..st
index 2b3536ac5..4fe3412ee 100644
--- a/repository/JQuery-Core.package/JQAjax.class/instance/callback..st
+++ b/repository/JQuery-Core.package/JQAjax.class/instance/callback..st
@@ -2,5 +2,4 @@ callbacks
 callback: aBlock
 	"Register aBlock as a primary callback of the receiver. It is only possible to have a single primary callback registered per instance. The primary callback must generate a response."
 
-	self enableCallbacks.
-	callback := aBlock
\ No newline at end of file
+	self privateCallback: aBlock asTracedBlock
\ No newline at end of file
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/callback.value..st b/repository/JQuery-Core.package/JQAjax.class/instance/callback.value..st
index 9b38fc44d..66a210e9b 100644
--- a/repository/JQuery-Core.package/JQAjax.class/instance/callback.value..st
+++ b/repository/JQuery-Core.package/JQAjax.class/instance/callback.value..st
@@ -6,5 +6,5 @@ Note: anObject should be a single literal Javascript object (String, Number, Boo
 
 	self enableCallbacks.
 	self addParameter: (self renderContext callbacks
-		store: (WAValueCallback on: aBlock)) 
+		store: (WAValueCallback on: aBlock asTracedBlock)) 
 			-> anObject
\ No newline at end of file
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/html..st b/repository/JQuery-Core.package/JQAjax.class/instance/html..st
index cac530703..462bfd72f 100644
--- a/repository/JQuery-Core.package/JQAjax.class/instance/html..st
+++ b/repository/JQuery-Core.package/JQAjax.class/instance/html..st
@@ -7,4 +7,4 @@ html: aRenderable
 		response
 			doNotCache;
 			contentType: self application contentType.
-		self render: aRenderable on: response stream ]
\ No newline at end of file
+		self render: aRenderable asTracedBlock on: response stream ]
\ No newline at end of file
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/privateCallback..st b/repository/JQuery-Core.package/JQAjax.class/instance/privateCallback..st
new file mode 100644
index 000000000..78078ed3c
--- /dev/null
+++ b/repository/JQuery-Core.package/JQAjax.class/instance/privateCallback..st
@@ -0,0 +1,5 @@
+callbacks
+privateCallback: aBlock
+
+	self enableCallbacks.
+	callback := aBlock
\ No newline at end of file
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/respond..st b/repository/JQuery-Core.package/JQAjax.class/instance/respond..st
index b196301de..377013145 100644
--- a/repository/JQuery-Core.package/JQAjax.class/instance/respond..st
+++ b/repository/JQuery-Core.package/JQAjax.class/instance/respond..st
@@ -2,4 +2,4 @@ callbacks
 respond: aBlock
 	"Defines a response callback."
 
-	self callback: [ self requestContext respond: aBlock ]
\ No newline at end of file
+	self privateCallback: [ self requestContext respond: aBlock ]
\ No newline at end of file
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/script..st b/repository/JQuery-Core.package/JQAjax.class/instance/script..st
index cdecf5e8c..173d5ed81 100644
--- a/repository/JQuery-Core.package/JQAjax.class/instance/script..st
+++ b/repository/JQuery-Core.package/JQAjax.class/instance/script..st
@@ -8,4 +8,4 @@ script: aBlock
 			doNotCache; 
 			contentType: (WAMimeType textJavascript
 				charset: self requestContext handler charSet).
-		self script: aBlock on: response stream ]
\ No newline at end of file
+		self script: aBlock asTracedBlock on: response stream ]
\ No newline at end of file
diff --git a/repository/JQuery-Core.package/JQAjax.class/instance/text..st b/repository/JQuery-Core.package/JQAjax.class/instance/text..st
index fc1d177ac..61b7ac3c0 100644
--- a/repository/JQuery-Core.package/JQAjax.class/instance/text..st
+++ b/repository/JQuery-Core.package/JQAjax.class/instance/text..st
@@ -8,4 +8,4 @@ text: aBlock
 			doNotCache;
 			contentType: (WAMimeType textPlain 
 				charset: self requestContext handler charSet).
-		aBlock value: response stream ]
\ No newline at end of file
+		aBlock asTracedBlock value: response stream ]
\ No newline at end of file
diff --git a/repository/JQuery-JSON.package/JQAjax.extension/instance/callback.json..st b/repository/JQuery-JSON.package/JQAjax.extension/instance/callback.json..st
index c54a1e38d..9b276100b 100644
--- a/repository/JQuery-JSON.package/JQAjax.extension/instance/callback.json..st
+++ b/repository/JQuery-JSON.package/JQAjax.extension/instance/callback.json..st
@@ -3,5 +3,5 @@ callback: aBlock json: anObject
 	"Register aBlock as a secondary callback. anObject is a reference to a Javascript object on the client-side. anObject will be serialized to a JSON string, sent back to the server, deserialized from JSON to nested Smalltalk objects, and result passed into aBlock."
 
 	self
-		callback: [ :value | aBlock value: (WAJsonParser parse: value) ] 
+		callback: [ :value | aBlock asTracedBlock value: (WAJsonParser parse: value) ] 
 		value: (JSJson new stringify: anObject)
\ No newline at end of file
diff --git a/repository/JQuery-JSON.package/JQAjax.extension/instance/json..st b/repository/JQuery-JSON.package/JQAjax.extension/instance/json..st
index 20259057c..5cdd8d820 100644
--- a/repository/JQuery-JSON.package/JQAjax.extension/instance/json..st
+++ b/repository/JQuery-JSON.package/JQAjax.extension/instance/json..st
@@ -7,4 +7,4 @@ json: aRenderable
 		response
 			doNotCache;
 			contentType: WAMimeType applicationJson;
-			nextPutAll: (WAJsonCanvas builder render: aRenderable) ]
\ No newline at end of file
+			nextPutAll: (WAJsonCanvas builder render: aRenderable asTracedBlock) ]
\ No newline at end of file
diff --git a/repository/JQuery-UI.package/JQAjax.extension/instance/callback.passengers..st b/repository/JQuery-UI.package/JQAjax.extension/instance/callback.passengers..st
index c9af69472..155affdb3 100644
--- a/repository/JQuery-UI.package/JQAjax.extension/instance/callback.passengers..st
+++ b/repository/JQuery-UI.package/JQAjax.extension/instance/callback.passengers..st
@@ -4,7 +4,7 @@ callback: aBlock passengers: aQuery
 
 	self
 		callback: [ :value | 
-			aBlock value: ((GRPlatform subStringsIn: value value splitBy: $,
+			aBlock asTracedBlock value: ((GRPlatform subStringsIn: value value splitBy: $,
 				collect: [ :each | self renderContext callbacks passengerAt: each ])
 				reject: [ :each | each isNil ]) ]
 		value: (JSStream on: JQuery functionName , '.map(' , aQuery greaseString , '.get(),function(each){return each.id}).join(",")')
\ No newline at end of file
diff --git a/repository/Seaside-Core.package/WAActionCallback.class/instance/block..st b/repository/Seaside-Core.package/WAActionCallback.class/instance/block..st
index 35a626973..031aedf89 100644
--- a/repository/Seaside-Core.package/WAActionCallback.class/instance/block..st
+++ b/repository/Seaside-Core.package/WAActionCallback.class/instance/block..st
@@ -1,3 +1,3 @@
 accessing
 block: aZeroOrOneArgBlock
-	block := aZeroOrOneArgBlock
\ No newline at end of file
+	block := aZeroOrOneArgBlock asTracedBlock 
\ No newline at end of file
diff --git a/repository/Seaside-Core.package/WACallback.class/instance/evaluateWithFieldValues..st b/repository/Seaside-Core.package/WACallback.class/instance/evaluateWithFieldValues..st
index 4ccc18070..7ee1af9ee 100644
--- a/repository/Seaside-Core.package/WACallback.class/instance/evaluateWithFieldValues..st
+++ b/repository/Seaside-Core.package/WACallback.class/instance/evaluateWithFieldValues..st
@@ -1,3 +1,4 @@
 evaluation
 evaluateWithFieldValues: anOrderedCollection
+
 	self evaluateWithArgument: (self valueForField: (anOrderedCollection at: 1 ifAbsent: [ nil ]))
\ No newline at end of file
diff --git a/repository/Seaside-Core.package/WAValueCallback.class/instance/block..st b/repository/Seaside-Core.package/WAValueCallback.class/instance/block..st
index 6c072f9ac..fef313f46 100644
--- a/repository/Seaside-Core.package/WAValueCallback.class/instance/block..st
+++ b/repository/Seaside-Core.package/WAValueCallback.class/instance/block..st
@@ -1,3 +1,3 @@
 accessing
 block: aOneArgBlock
-	block := aOneArgBlock
\ No newline at end of file
+	block := aOneArgBlock asTracedBlock
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/BlockClosure.extension/instance/asTracedBlock.st b/repository/Seaside-Development.package/BlockClosure.extension/instance/asTracedBlock.st
new file mode 100644
index 000000000..3afef3e59
--- /dev/null
+++ b/repository/Seaside-Development.package/BlockClosure.extension/instance/asTracedBlock.st
@@ -0,0 +1,4 @@
+*Seaside-Development
+asTracedBlock
+
+	^ WATracingBlockWrapper onBlock: self
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/BlockClosure.extension/properties.json b/repository/Seaside-Development.package/BlockClosure.extension/properties.json
new file mode 100644
index 000000000..2190e5e29
--- /dev/null
+++ b/repository/Seaside-Development.package/BlockClosure.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "BlockClosure"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/Object.extension/instance/asTracedBlock.st b/repository/Seaside-Development.package/Object.extension/instance/asTracedBlock.st
new file mode 100644
index 000000000..c4c0277ac
--- /dev/null
+++ b/repository/Seaside-Development.package/Object.extension/instance/asTracedBlock.st
@@ -0,0 +1,4 @@
+*Seaside-Development
+asTracedBlock
+
+	^ self
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/Object.extension/properties.json b/repository/Seaside-Development.package/Object.extension/properties.json
new file mode 100644
index 000000000..f30a86e11
--- /dev/null
+++ b/repository/Seaside-Development.package/Object.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Object"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WAAbstractRequestLogger.class/README.md b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WAAbstractRequestLogger.class/instance/addLogItem..st b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/instance/addLogItem..st
new file mode 100644
index 000000000..a40fe9fab
--- /dev/null
+++ b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/instance/addLogItem..st
@@ -0,0 +1,4 @@
+adding
+addLogItem: aWARequestLogItem
+
+	self subclassResponsibility
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WAAbstractRequestLogger.class/properties.json b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/properties.json
new file mode 100644
index 000000000..4166be1bd
--- /dev/null
+++ b/repository/Seaside-Development.package/WAAbstractRequestLogger.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "WAAbstractRequestLogger",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WACurrentRequestLogContext.class/README.md b/repository/Seaside-Development.package/WACurrentRequestLogContext.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WACurrentRequestLogContext.class/properties.json b/repository/Seaside-Development.package/WACurrentRequestLogContext.class/properties.json
new file mode 100644
index 000000000..73371c927
--- /dev/null
+++ b/repository/Seaside-Development.package/WACurrentRequestLogContext.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "WADynamicVariable",
+	"category" : "Seaside-Development-Base",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "WACurrentRequestLogContext",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/README.md b/repository/Seaside-Development.package/WARequestLogItem.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/class/on..st b/repository/Seaside-Development.package/WARequestLogItem.class/class/on..st
new file mode 100644
index 000000000..a9140beb7
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogItem.class/class/on..st
@@ -0,0 +1,4 @@
+instance creation
+on: aRequest
+
+	^ self new request: aRequest
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/addBlock..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/addBlock..st
new file mode 100644
index 000000000..f83dafc39
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogItem.class/instance/addBlock..st
@@ -0,0 +1,4 @@
+adding
+addBlock: block
+
+	lines add: block
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/initialize.st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/initialize.st
new file mode 100644
index 000000000..ef683429a
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogItem.class/instance/initialize.st
@@ -0,0 +1,5 @@
+initialization
+initialize
+
+	super initialize.
+	lines := OrderedCollection new
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/printOn..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/printOn..st
new file mode 100644
index 000000000..477bb7884
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogItem.class/instance/printOn..st
@@ -0,0 +1,9 @@
+printing
+printOn: aStream
+
+	aStream nextPutAll: request url asString.
+	lines do:[ :block |
+		| homeMethod inClass |
+		homeMethod := block method.
+		inClass := homeMethod methodClass.
+		aStream nextPutAll: ('  [] in {1}>>#{2}' format: { inClass name. homeMethod selector }) ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/renderOn..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/renderOn..st
new file mode 100644
index 000000000..2c0f31d30
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogItem.class/instance/renderOn..st
@@ -0,0 +1,12 @@
+printing
+renderOn: html
+
+	html text: request url asString.
+	html break.
+	lines do:[ :block |
+		| homeMethod inClass |
+		homeMethod := block method.
+		inClass := homeMethod methodClass.
+		html anchor
+			callback: [ block inspect ];
+			with: ('[] in {1}>>#{2}' format: { inClass name. homeMethod selector }) ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/instance/request..st b/repository/Seaside-Development.package/WARequestLogItem.class/instance/request..st
new file mode 100644
index 000000000..2914ecdd1
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogItem.class/instance/request..st
@@ -0,0 +1,4 @@
+initialization
+request: aRequest
+
+	request := aRequest
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogItem.class/properties.json b/repository/Seaside-Development.package/WARequestLogItem.class/properties.json
new file mode 100644
index 000000000..63e256999
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogItem.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"lines",
+		"request"
+	],
+	"name" : "WARequestLogItem",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/README.md b/repository/Seaside-Development.package/WARequestLogTool.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/class/on..st b/repository/Seaside-Development.package/WARequestLogTool.class/class/on..st
new file mode 100644
index 000000000..014e9cf79
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogTool.class/class/on..st
@@ -0,0 +1,3 @@
+instance creation
+on: aLog
+	^ self basicNew initializeOn: aLog; yourself
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/instance/initializeOn..st b/repository/Seaside-Development.package/WARequestLogTool.class/instance/initializeOn..st
new file mode 100644
index 000000000..125b35ffc
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogTool.class/instance/initializeOn..st
@@ -0,0 +1,4 @@
+initialization
+initializeOn: aLog
+	self initialize.
+	log := aLog
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/instance/renderContentOn..st b/repository/Seaside-Development.package/WARequestLogTool.class/instance/renderContentOn..st
new file mode 100644
index 000000000..2191c416b
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogTool.class/instance/renderContentOn..st
@@ -0,0 +1,5 @@
+initialization
+renderContentOn: html
+
+	log do:[ :logItem |
+		logItem renderOn: html ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLogTool.class/properties.json b/repository/Seaside-Development.package/WARequestLogTool.class/properties.json
new file mode 100644
index 000000000..bcf8a1be9
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLogTool.class/properties.json
@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "WATool",
+	"category" : "Seaside-Development-Core-Profiler",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"log"
+	],
+	"name" : "WARequestLogTool",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/README.md b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/execute.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/execute.st
new file mode 100644
index 000000000..8b4220835
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/execute.st
@@ -0,0 +1,7 @@
+actions
+execute
+	self isLogging
+		ifFalse: [ self session addFilter: self filter "reset" ]
+		ifTrue: [
+			self session removeFilter: self filter.
+			self open: (WARequestLogTool on: self logger log) ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/filter.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/filter.st
new file mode 100644
index 000000000..d8364e3ae
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/filter.st
@@ -0,0 +1,3 @@
+accessing
+filter
+	^ filter ifNil: [ filter := WARequestLoggingFilter new logger: self logger ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/isLogging.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/isLogging.st
new file mode 100644
index 000000000..1e5922ce9
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/isLogging.st
@@ -0,0 +1,3 @@
+testing
+isLogging
+	^ self session filters includes: self filter
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/label.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/label.st
new file mode 100644
index 000000000..39c852946
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/label.st
@@ -0,0 +1,5 @@
+accessing
+label
+	^ self isLogging
+		ifFalse: [ 'Log' ]
+		ifTrue: [ 'Stop Log' ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/logger.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/logger.st
new file mode 100644
index 000000000..ec1eaf5d6
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/logger.st
@@ -0,0 +1,4 @@
+accessing
+logger
+
+	^ logger ifNil: [ logger := WARequestObjectLogger new ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/priority.st b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/priority.st
new file mode 100644
index 000000000..92e912466
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/instance/priority.st
@@ -0,0 +1,3 @@
+accessing
+priority
+	^ 350
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/properties.json b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/properties.json
new file mode 100644
index 000000000..718c52a0a
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggerToolPlugin.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "WAToolPlugin",
+	"category" : "Seaside-Development-Core-Profiler",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"filter",
+		"logger"
+	],
+	"name" : "WARequestLoggerToolPlugin",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/README.md b/repository/Seaside-Development.package/WARequestLoggingFilter.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/handleFiltered..st b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/handleFiltered..st
new file mode 100644
index 000000000..6f7d5fd2e
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/handleFiltered..st
@@ -0,0 +1,7 @@
+processing
+handleFiltered: aRequestContext
+
+	currentLogItem := WARequestLogItem on: aRequestContext request copy.
+	WACurrentRequestLogContext
+		use: currentLogItem
+		during: [ [ super handleFiltered: aRequestContext ] ensure: [ logger addLogItem: currentLogItem ] ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger..st b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger..st
new file mode 100644
index 000000000..7da2df9d9
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger..st
@@ -0,0 +1,4 @@
+accessing
+logger: aLogger
+
+	logger := aLogger
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger.st b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger.st
new file mode 100644
index 000000000..2edf0a202
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggingFilter.class/instance/logger.st
@@ -0,0 +1,4 @@
+accessing
+logger
+
+	^ logger
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestLoggingFilter.class/properties.json b/repository/Seaside-Development.package/WARequestLoggingFilter.class/properties.json
new file mode 100644
index 000000000..63e0c2127
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestLoggingFilter.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "WARequestFilter",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"currentLogItem",
+		"logger"
+	],
+	"name" : "WARequestLoggingFilter",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/README.md b/repository/Seaside-Development.package/WARequestObjectLogger.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/addLogItem..st b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/addLogItem..st
new file mode 100644
index 000000000..1dce112a0
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/addLogItem..st
@@ -0,0 +1,4 @@
+adding
+addLogItem: aWARequestLogItem
+
+	log add: aWARequestLogItem
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/initialize.st b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/initialize.st
new file mode 100644
index 000000000..839d93ffd
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/initialize.st
@@ -0,0 +1,4 @@
+initialization
+initialize
+	super initialize.
+	log := OrderedCollection new.
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/log.st b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/log.st
new file mode 100644
index 000000000..48bcbf646
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestObjectLogger.class/instance/log.st
@@ -0,0 +1,4 @@
+accessing
+log
+
+	^ log
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WARequestObjectLogger.class/properties.json b/repository/Seaside-Development.package/WARequestObjectLogger.class/properties.json
new file mode 100644
index 000000000..73762c6f1
--- /dev/null
+++ b/repository/Seaside-Development.package/WARequestObjectLogger.class/properties.json
@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "WAAbstractRequestLogger",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"log"
+	],
+	"name" : "WARequestObjectLogger",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/README.md b/repository/Seaside-Development.package/WATracingBlockWrapper.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/class/onBlock..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/class/onBlock..st
new file mode 100644
index 000000000..974d7ae0b
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/class/onBlock..st
@@ -0,0 +1,4 @@
+instance creation
+onBlock: aBlock
+
+	^ self new block: aBlock
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/asTracedBlock.st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/asTracedBlock.st
new file mode 100644
index 000000000..8187e48cc
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/asTracedBlock.st
@@ -0,0 +1,4 @@
+converting
+asTracedBlock
+
+	^ self
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/block..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/block..st
new file mode 100644
index 000000000..887769822
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/block..st
@@ -0,0 +1,4 @@
+accessing
+block: aBlock
+
+	block := aBlock
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/jsonOn..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/jsonOn..st
new file mode 100644
index 000000000..948291cc0
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/jsonOn..st
@@ -0,0 +1,4 @@
+rendering
+jsonOn: canvas
+	self trace.
+	block jsonOn: canvas
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/renderOn..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/renderOn..st
new file mode 100644
index 000000000..937f38681
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/renderOn..st
@@ -0,0 +1,4 @@
+rendering
+renderOn: aRenderer
+	self trace.
+	block renderOn: aRenderer
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/trace.st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/trace.st
new file mode 100644
index 000000000..0d272c630
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/trace.st
@@ -0,0 +1,4 @@
+private
+trace
+
+	WACurrentRequestLogContext value ifNotNil: [ :logItem | logItem addBlock: block ]
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value..st
new file mode 100644
index 000000000..8187f7aee
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value..st
@@ -0,0 +1,5 @@
+evaluating
+value: anObject
+	self halt.
+	self trace.
+	^ block value: anObject
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.st
new file mode 100644
index 000000000..d47871cf1
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.st
@@ -0,0 +1,5 @@
+evaluating
+value
+	self halt.
+	self trace.
+	^ block value
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value..st
new file mode 100644
index 000000000..377748bce
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value..st
@@ -0,0 +1,5 @@
+evaluating
+value: arg1 value: arg2
+	self halt.
+	self trace.
+	^ block value: arg1 value: arg2
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value.value..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value.value..st
new file mode 100644
index 000000000..ae9968ffb
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value.value..st
@@ -0,0 +1,5 @@
+evaluating
+value: arg1 value: arg2 value: arg3
+	self halt.
+	self trace.
+	^ block value: arg1 value: arg2 value: arg3
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value.value.value..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value.value.value..st
new file mode 100644
index 000000000..09cc52d09
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/value.value.value.value..st
@@ -0,0 +1,5 @@
+evaluating
+value: arg1 value: arg2 value: arg3 value: arg4
+	self halt.
+	self trace.
+	^ block value: arg1 value: arg2 value: arg3 value: arg4
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/valueWithPossibleArgument..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/valueWithPossibleArgument..st
new file mode 100644
index 000000000..d93d10bd1
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/valueWithPossibleArgument..st
@@ -0,0 +1,5 @@
+evaluating
+valueWithPossibleArgument: anArg
+	self halt.
+	self trace.
+	^ block valueWithPossibleArgument: anArg
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/valueWithPossibleArguments..st b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/valueWithPossibleArguments..st
new file mode 100644
index 000000000..644efae1b
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/instance/valueWithPossibleArguments..st
@@ -0,0 +1,4 @@
+evaluating
+valueWithPossibleArguments: anArray
+	self trace.
+	^ block valueWithPossibleArguments: anArray
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/WATracingBlockWrapper.class/properties.json b/repository/Seaside-Development.package/WATracingBlockWrapper.class/properties.json
new file mode 100644
index 000000000..dc558d85a
--- /dev/null
+++ b/repository/Seaside-Development.package/WATracingBlockWrapper.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Seaside-Development-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"block",
+		"originalBlock"
+	],
+	"name" : "WATracingBlockWrapper",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Development.package/monticello.meta/categories.st b/repository/Seaside-Development.package/monticello.meta/categories.st
index d79c87347..206fb592b 100644
--- a/repository/Seaside-Development.package/monticello.meta/categories.st
+++ b/repository/Seaside-Development.package/monticello.meta/categories.st
@@ -1 +1 @@
-self packageOrganizer ensurePackage: #'Seaside-Development' withTags: #(#Core #Filter #Plugins)!
+self packageOrganizer ensurePackage: #'Seaside-Development' withTags: #(#Base #Core #'Core-Profiler' #Filter #Plugins)!