--- a/BlockNode.st	Wed Dec 13 20:05:51 1995 +0100
+++ b/BlockNode.st	Wed Dec 13 20:06:16 1995 +0100
@@ -546,6 +546,15 @@
     ^ true
 !
 
+simpleSendBlockExpression
+    blockVars notNil ifTrue:[^ nil].
+    statements isNil ifTrue:[^ nil].
+    statements nextStatement notNil ifTrue:[^ nil].
+    ^ statements expression
+
+    "Created: 13.12.1995 / 20:06:09 / cg"
+!
+
 simpleSendBlockReceiver
     blockVars notNil ifTrue:[^ nil].
     statements isNil ifTrue:[^ nil].
@@ -558,5 +567,5 @@
 !BlockNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.21 1995-12-13 19:05:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.22 1995-12-13 19:06:16 cg Exp $'
 ! !