diff --git a/org_mode_samples/lesser_element/lesser_block/src_empty.org b/org_mode_samples/lesser_element/lesser_block/src_empty.org
new file mode 100644
index 00000000..9dabc760
--- /dev/null
+++ b/org_mode_samples/lesser_element/lesser_block/src_empty.org
@@ -0,0 +1,2 @@
+#+begin_src
+#+end_src
diff --git a/src/compare/diff.rs b/src/compare/diff.rs
index 26946b87..131afc35 100644
--- a/src/compare/diff.rs
+++ b/src/compare/diff.rs
@@ -1223,6 +1223,8 @@ fn compare_src_block<'s>(
         Ok(_) => {}
     };
 
+    // TODO: Compare :language :switches :parameters :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :value
+
     Ok(DiffResult {
         status: this_status,
         name: emacs_name.to_owned(),
diff --git a/src/parser/util.rs b/src/parser/util.rs
index 67fccbd4..32576ad2 100644
--- a/src/parser/util.rs
+++ b/src/parser/util.rs
@@ -8,7 +8,6 @@ use nom::combinator::not;
 use nom::combinator::opt;
 use nom::combinator::peek;
 use nom::combinator::recognize;
-use nom::combinator::verify;
 use nom::multi::many0;
 use nom::multi::many_till;
 use nom::sequence::tuple;
@@ -160,9 +159,9 @@ pub fn text_until_exit<'b, 'g, 'r, 's>(
     context: RefContext<'b, 'g, 'r, 's>,
     input: OrgSource<'s>,
 ) -> Res<OrgSource<'s>, OrgSource<'s>> {
-    recognize(verify(
-        many_till(anychar, parser_with_context!(exit_matcher_parser)(context)),
-        |(children, _exit_contents)| !children.is_empty(),
+    recognize(many_till(
+        anychar,
+        parser_with_context!(exit_matcher_parser)(context),
     ))(input)
 }