--- a/Singleton.st	Mon Jun 19 19:43:55 2006 +0200
+++ b/Singleton.st	Thu Jun 29 10:20:52 2006 +0200
@@ -74,6 +74,12 @@
 
 !Singleton class methodsFor:'accessing'!
 
+singletonLock
+    "can be used by other classes that are not subclasses of Singleton"
+
+    ^ Lock
+!
+
 theOnlyInstance
     ^ theOnlyInstance
 ! !
@@ -81,7 +87,7 @@
 !Singleton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Singleton.st,v 1.1 2005-05-03 16:28:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Singleton.st,v 1.2 2006-06-29 08:20:52 stefan Exp $'
 ! !
 
 Singleton initialize!