--- a/Singleton.st	Fri Aug 11 11:22:59 2017 +0200
+++ b/Singleton.st	Fri Aug 11 11:23:36 2017 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#Singleton
 	instanceVariableNames:''
 	classVariableNames:'Lock'
@@ -64,7 +66,7 @@
 !Singleton class methodsFor:'initialization'!
 
 initialize
-    Lock := RecursionLock new name:#Singleton
+    Lock := RecursionLock name:#Singleton
 ! !
 
 !Singleton class methodsFor:'instance creation'!
@@ -112,7 +114,8 @@
 !Singleton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Singleton.st,v 1.3 2008-01-22 22:31:57 cg Exp $'
+    ^ '$Header$'
 ! !
 
+
 Singleton initialize!