--- a/MessageNd.st	Fri Dec 08 00:41:40 1995 +0100
+++ b/MessageNd.st	Sat Dec 09 23:10:33 1995 +0100
@@ -498,18 +498,18 @@
 
     |pos theReceiver theByteCode|
 
-self halt.
+self halt:'not yet implemented'.
     theReceiver := receiver.
     (selector == #and:) ifTrue:[
-	theByteCode := #falseJump
+        theByteCode := #falseJump
     ] ifFalse:[
-	theByteCode := #trueJump
+        theByteCode := #trueJump
     ].
 "
     (self canOptimizeConditionFor:receiver) ifTrue:[
-	theByteCode := self optimizedConditionFor:theReceiver
-					     with:theByteCode.
-	theReceiver := theReceiver receiver
+        theByteCode := self optimizedConditionFor:theReceiver
+                                             with:theByteCode.
+        theReceiver := theReceiver receiver
     ].
 "
     theReceiver codeOn:aStream inBlock:b for:aCompiler.
@@ -519,6 +519,8 @@
     (argArray at: 1) codeInlineOn:aStream inBlock:b for:aCompiler.
     (aStream contents) at:pos put:(aStream position).
     valueNeeded ifFalse:[aStream nextPut:#drop]
+
+    "Created: 9.12.1995 / 23:05:52 / cg"
 !
 
 codeForCascadeOn:aStream inBlock:b for:aCompiler
@@ -1523,5 +1525,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.33 1995-12-03 12:16:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.34 1995-12-09 22:10:33 cg Exp $'
 ! !