--- a/RecLock.st	Mon Dec 04 16:00:37 1995 +0100
+++ b/RecLock.st	Thu Dec 07 22:30:55 1995 +0100
@@ -11,8 +11,6 @@
 "
 
 
-'From Smalltalk/X, Version:2.10.5 on 28-apr-1995 at 12:37:45 pm'!
-
 Object subclass:#RecursionLock
 	 instanceVariableNames:'process sema'
 	 classVariableNames:''
@@ -22,6 +20,21 @@
 
 !RecursionLock class methodsFor:'documentation'!
 
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
 documentation
 "
     like a Semaphore for mutual exclusion, but avoids the deadlock
@@ -42,25 +55,6 @@
 	]
 "
 
-!
-
-copyright
-"
- COPYRIGHT (c) 1995 by Claus Gittinger
-	      All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
- be provided or otherwise made available to, or used by, any
- other person.  No title to or ownership of the software is
- hereby transferred.
-"
-
-!
-
-version 
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.5 1995-11-11 15:21:35 cg Exp $'
 ! !
 
 !RecursionLock class methodsFor:'instance creation'!
@@ -70,6 +64,12 @@
 
 ! !
 
+!RecursionLock methodsFor:'private initialization'!
+
+initialize
+    sema := Semaphore forMutualExclusion
+! !
+
 !RecursionLock methodsFor:'wait & signal'!
 
 critical:aBlock
@@ -93,8 +93,8 @@
     ].
 ! !
 
-!RecursionLock methodsFor:'private initialization'!
+!RecursionLock class methodsFor:'documentation'!
 
-initialize
-    sema := Semaphore forMutualExclusion
+version 
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.6 1995-12-07 21:30:23 cg Exp $'
 ! !