David T. Lewis uploaded a new version of WebClient-Core to project The Trunk:
http://source.squeak.org/trunk/WebClient-Core-dtl.127.mcz

==================== Summary ====================

Name: WebClient-Core-dtl.127
Author: dtl
Time: 2 December 2020, 9:21:11.256021 pm
UUID: b29c5835-46cf-4f51-b822-b3494063f3f7
Ancestors: WebClient-Core-mt.126

Eliminate the only known use of DateAndTime class>>totalSeconds, use the proper method in class Time instead.

=============== Diff against WebClient-Core-mt.126 ===============

Item was changed:
  ----- Method: WebUtils class>>logEntryFor:response: (in category 'misc') -----
  logEntryFor: request response: response
  	"Create a log entry in common log format from the given request / response"
  
  	| entry logdate logsize |
  
  	"CLF prints date as [day/month/year:hour:min:sec zone]"
  	logdate := String streamContents:[:s| | date |
+ 		date := DateAndTime fromSeconds: Time totalSeconds.
- 		date := DateAndTime fromSeconds: DateAndTime totalSeconds.
  		s nextPut: $[.
  			date asDate printOn: s format: #( 1 2 3 $/ 2 1 2).
  		s nextPut: $:.
  			date asTime print24: true on: s.
  		s nextPutAll:(' ',
  			(date offset hours >= 0 ifTrue:['+'] ifFalse:['-']),
  			(date offset hours abs asString padded: #left to: 2 with: $0),
  			(date offset minutes abs asString padded: #left to: 2 with: $0)
  		).
  		s nextPut: $].
  	].
  
  	"CLF prints zero length as - "
  	logsize := response contentLength ifNil:[0].
  	logsize = 0 ifTrue:[logsize := '-'].
  
  	entry := String streamContents:[:s|
  		s 
  			nextPutAll: (request remoteHost ifNil:[
  				"Substitute with the host header"
  				(request headerAt: 'host') copyUpTo: $:
  			]);
  			nextPutAll: ' -'; 	"RFC 1413 identity of client"
  			nextPutAll: ' -';	"TODO: userid of authenticated user"
  			nextPutAll: ' ', logdate;
  			nextPutAll: ' "', request requestLine, '"';
  			nextPutAll: ' ', response code;
  			nextPutAll: ' ', logsize.
  	].
  	^entry
  !