--- a/Plug.st	Sun Mar 26 17:05:23 1995 +0200
+++ b/Plug.st	Sun Mar 26 22:10:27 1995 +0200
@@ -1,6 +1,6 @@
-'From Smalltalk/X, Version:2.10.5 on 26-mar-1995 at 12:13:28 pm'!
+'From Smalltalk/X, Version:2.10.5 on 26-mar-1995 at 4:21:12 am'!
 
-Object subclass:#Plug
+Model subclass:#Plug
 	 instanceVariableNames:'simulatedProtocol'
 	 classVariableNames:''
 	 poolDictionaries:''
@@ -11,7 +11,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Plug.st,v 1.1 1995-03-26 15:05:23 claus Exp $
+$Header: /cvs/stx/stx/libview2/Plug.st,v 1.2 1995-03-26 20:10:27 claus Exp $
 "
 !
 
@@ -38,24 +38,12 @@
 "
 ! !
 
-!Plug class methodsFor:'initialization'!
-
-initialize
-    superclass := nil
-! !
-
 !Plug class methodsFor:'instance creation'!
 
 new
     ^ super basicNew privateInitialize
 ! !
 
-!Plug methodsFor:'protocol definition'!
-
-respondTo:aSelector with:aBlock
-    simulatedProtocol at:aSelector put:aBlock
-! !
-
 !Plug methodsFor:'message sending'!
 
 doesNotUnderstand:aMessage
@@ -68,6 +56,12 @@
     ^ block valueWithArguments:(aMessage arguments)
 ! !
 
+!Plug methodsFor:'protocol definition'!
+
+respondTo:aSelector with:aBlock
+    simulatedProtocol at:aSelector put:aBlock
+! !
+
 !Plug methodsFor:'initialization'!
 
 privateInitialize
@@ -77,4 +71,3 @@
     simulatedProtocol := IdentityDictionary new.
 ! !
 
-Plug initialize!