Fix particularly nasty (but rare) bug that makes ext file generation fail under unusu...

diff --git a/src/sf/object.scm b/src/sf/object.scm
index 4c45799f4c22fa339dc1ad799f268aa918803d7e..163415c96eddbc648b229c9b236deb712752608a 100644 (file)
--- a/src/sf/object.scm
+++ b/src/sf/object.scm
@@ -327,7 +327,7 @@ USA.
               (if (null? other-operands)
                   result-body
                   (sequence/make
-                   expression
+                   (and expression (object/scode expression))
                    (append other-operands (list result-body))))))))
        (else
         (combination/%make (and expression (object/scode expression)) block operator operands))))