--- a/Plug.st	Thu Dec 07 17:48:43 1995 +0100
+++ b/Plug.st	Thu Dec 07 22:25:39 1995 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.5 on 26-mar-1995 at 4:21:12 am'!
-
 Model subclass:#Plug
 	 instanceVariableNames:'simulatedProtocol'
 	 classVariableNames:''
@@ -35,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.6 1995-11-11 16:04:51 cg Exp $'
-!
-
 documentation
 "
     A Plug is an objcet which simulates a protocol and evaluates
@@ -68,6 +62,15 @@
     ^ super basicNew privateInitialize
 ! !
 
+!Plug methodsFor:'initialization'!
+
+privateInitialize
+    "this method is NOT called initialize to allow plugging that
+     selector ..."
+
+    simulatedProtocol := IdentityDictionary new.
+! !
+
 !Plug methodsFor:'message sending'!
 
 doesNotUnderstand:aMessage
@@ -80,6 +83,12 @@
     ^ block valueWithArguments:(aMessage arguments)
 ! !
 
+!Plug methodsFor:'protocol definition'!
+
+respondTo:aSelector with:aBlock
+    simulatedProtocol at:aSelector put:aBlock
+! !
+
 !Plug methodsFor:'queries'!
 
 respondsTo:aSelector
@@ -87,18 +96,8 @@
     ^ super respondsTo:aSelector
 ! !
 
-!Plug methodsFor:'protocol definition'!
-
-respondTo:aSelector with:aBlock
-    simulatedProtocol at:aSelector put:aBlock
-! !
-
-!Plug methodsFor:'initialization'!
+!Plug class methodsFor:'documentation'!
 
-privateInitialize
-    "this method is NOT called initialize to allow plugging that
-     selector ..."
-
-    simulatedProtocol := IdentityDictionary new.
+version
+    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.7 1995-12-07 21:25:39 cg Exp $'
 ! !
-