diff.diff

diff --git a/src/core/Supply.pm b/src/core/Supply.pm
index aa8b760..b8bcedc 100644
--- a/src/core/Supply.pm
+++ b/src/core/Supply.pm
@@ -1672,7 +1672,12 @@ sub SUPPLY(&block) {
         method tap(&emit, &done, &quit) {
             my $state = SupplyBlockState.new(:&emit, :&done, :&quit);
             self!run-supply-code(&!block, $state);
-            $state.close-phasers.push(.clone) for &!block.phasers('CLOSE');
+            dd ['here!', nqp::istype(&!block, Block) ];
+            &!block();
+            dd "done!";
+            if nqp::istype(&!block, Block) {
+                $state.close-phasers.push(.clone) for &!block.?phasers('CLOSE');
+            }
             self!deactivate-one($state);
             Tap.new(-> { self!teardown($state) })
         }
cpan@perlbuild2~/CPANPRC/rakudo (nom)$