--- a/Continuation.st	Tue Oct 21 16:08:10 2008 +0200
+++ b/Continuation.st	Wed Oct 22 00:19:58 2008 +0200
@@ -126,10 +126,10 @@
 
     (cID := id) notNil ifTrue:[
 %{
-	__continuationResume(__intVal(cID));
+        __continuationResume(__intVal(cID));
 %}
     ].
-self halt.
+self halt:'not yet implemented'.
 
 "/        self terminate: thisContext.
 "/        self restoreValues.
@@ -145,10 +145,11 @@
 !Continuation methodsFor:'private'!
 
 terminate: aContext
-self halt.
+self halt:'not yet implemented'.
 "/        | context |
 "/        context _ aContext.
 "/        [context notNil] whileTrue: [context _ context swapSender: nil]
+
 ! !
 
 !Continuation methodsFor:'private accessing'!
@@ -173,7 +174,7 @@
 !Continuation methodsFor:'restoration'!
 
 restoreValues
-self halt.
+self halt:'not yet implemented'.
 "/        | valueStream context |
 "/
 "/        valueStream _ values readStream.
@@ -186,5 +187,5 @@
 !Continuation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.13 2006-12-06 14:32:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.14 2008-10-21 22:19:58 cg Exp $'
 ! !