--- a/patches	Mon Jan 12 15:35:20 1998 +0100
+++ b/patches	Mon Jan 12 23:41:06 1998 +0100
@@ -171,6 +171,7 @@
 (cls := Smalltalk at:#Socket) notNil ifTrue:[
     Smalltalk at:#UnixSocketAccessor put:cls.
     Smalltalk at:#SocketAccessor put:cls.
+    Smalltalk at:#SocketAccessorByAddress put:cls.
 ].
 Smalltalk at:#BlockClosure put:Block.
 (cls := Smalltalk at:#DialogBox) notNil ifTrue:[
@@ -183,6 +184,7 @@
 Smalltalk at:#Console put:Stderr.
 Smalltalk at:#HandlerList put:HandlerCollection.
 Smalltalk at:#SignalCollection put:SignalSet.
+Smalltalk at:#Timestamp put:AbsoluteTime.
 
 "/ FileDirectory notNil ifTrue:[
 "/     Smalltalk at:#Disk put:(Filename rootDirectory)