Typo in variable name.

diff --git a/src/sf/object.scm b/src/sf/object.scm
index 85ada7a0deaaf689d12fd9b1082c9ceae3517b8a..4c45799f4c22fa339dc1ad799f268aa918803d7e 100644 (file)
--- a/src/sf/object.scm
+++ b/src/sf/object.scm
@@ -328,7 +328,7 @@ USA.
                   result-body
                   (sequence/make
                    expression
-                   (append other-operands (list form))))))))
+                   (append other-operands (list result-body))))))))
        (else
         (combination/%make (and expression (object/scode expression)) block operator operands))))