--- a/LazyMethod.st	Fri May 21 17:39:03 1999 +0200
+++ b/LazyMethod.st	Fri Jun 11 09:49:34 1999 +0200
@@ -60,12 +60,9 @@
 
 initialize
     CompilationFailedSignal isNil ifTrue:[
-	CompilationFailedSignal := ExecutionErrorSignal newSignalMayProceed:true.
-	CompilationFailedSignal nameClass:self message:#compilationFailedSignal.
-	CompilationFailedSignal notifierString:'compilation of lazy method failed'.
-
-	Access := Semaphore forMutualExclusion name:'LazyAccess'.
-	"/ Access := RecursionLock new.
+        CompilationFailedSignal := ExecutionErrorSignal newSignalMayProceed:true.
+        CompilationFailedSignal nameClass:self message:#compilationFailedSignal.
+        CompilationFailedSignal notifierString:'compilation of lazy method failed'.
     ]
 ! !
 
@@ -85,21 +82,8 @@
 
     "compile the method"
 
-    "we have to sequentialize this using a lock-semaphore,
-     to make sure only one method is compiled at a time.
-     Otherwise, we might get into trouble, if (due to a timeout)
-     another recompile is forced while compiling this one ...
-     (happened when autoloading animation demos)
-    "
-"/  Access wouldBlock ifTrue:[
-"/      'oops - blocked access lock' printNL.
-"/      Access signal
-"/  ].
-
     [
-        Access critical:[
-            m := self asExecutableMethod.
-        ].
+        m := self asExecutableMethod.
     ] valueUninterruptably.
 
     (m isNil 
@@ -188,6 +172,6 @@
 !LazyMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.23 1998-11-14 17:44:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.24 1999-06-11 07:49:34 cg Exp $'
 ! !
 LazyMethod initialize!