--- a/RecursionLock.st	Thu Sep 10 07:06:33 2015 +0100
+++ b/RecursionLock.st	Sat Sep 12 06:54:38 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#RecursionLock
 	instanceVariableNames:'process sema'
 	classVariableNames:''
@@ -92,7 +96,7 @@
 !RecursionLock class methodsFor:'instance creation'!
 
 forMutualExclusion
-    "same as new, for easy exchangability with reular mutual-exclusion Semaphores."
+    "same as new, for easy exchangability with regular mutual-exclusion Semaphores."
 
     ^ self new 
 !
@@ -342,10 +346,10 @@
 !RecursionLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.41 2014-10-21 19:19:55 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.41 2014-10-21 19:19:55 stefan Exp $'
+    ^ '$Header$'
 ! !