[Pkg] The Trunk: Kernel-jcg.439.mcz

[commits at source.squeak.org]

Joshua Gargus uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-jcg.439.mcz

==================== Summary ====================

Name: Kernel-jcg.439
Author: jcg
Time: 6 April 2010, 1:42:28.455 am
UUID: 6055c684-bed4-44a4-9da3-a55fc22de5b6
Ancestors: Kernel-jcg.438

Fix Promise to address failing test added in KernelTests-jcg.146.

=============== Diff against Kernel-jcg.438 ===============

Item was changed:
  ----- Method: Promise>>waitTimeoutMSecs: (in category 'waiting') -----
  waitTimeoutMSecs: msecs
  	"Wait for at most the given number of milliseconds for this promise to resolve. Answer true if it is resolved, false otherwise."
  	| sema delay |
  	sema := Semaphore new.
+ 	self whenResolved: [sema signal].
- 	self whenComplete:[sema signal].
  	delay := Delay timeoutSemaphore: sema afterMSecs: msecs.
  	[sema wait] ensure: [delay unschedule].
  	^isResolved!