diff --git a/lisp/core-loop-perceive.lisp b/lisp/core-loop-perceive.lisp
index 0bd1a59..4f90f7c 100644
--- a/lisp/core-loop-perceive.lisp
+++ b/lisp/core-loop-perceive.lisp
@@ -129,3 +129,4 @@ FN receives (signal) and returns T if consumed, nil to continue."
 (test test-depth-limiting
   (let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
     (is (null (process-signal runaway-signal)))))
+(defun bad-code () (broken
diff --git a/org/core-loop-perceive.org b/org/core-loop-perceive.org
index 6015194..22f93f9 100644
--- a/org/core-loop-perceive.org
+++ b/org/core-loop-perceive.org
@@ -249,4 +249,4 @@ Verifies that the perceive gate correctly ingests AST nodes into memory and that
 (test test-depth-limiting
   (let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
     (is (null (process-signal runaway-signal)))))
-#+end_src
\ No newline at end of file
+#+end_src(defun bad-code () (broken