--- a/Promise.st	Wed Feb 14 16:04:49 1996 +0100
+++ b/Promise.st	Sun Feb 18 13:29:30 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.5 1995-11-11 15:21:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.6 1996-02-18 12:29:30 cg Exp $'
 !
 
 documentation
@@ -92,7 +92,7 @@
     valueAvailable := Semaphore new:0.
 
     [
-	Object errorSignal handle:[:ex |
+	ErrorSignal handle:[:ex |
 	    exception := ex.
 	    ex return.
 	] do:[