diff --git a/begin-tests.scm b/begin-tests.scm
index 28ff08ab..9277f845 100644
--- a/begin-tests.scm
+++ b/begin-tests.scm
@@ -1,11 +1,11 @@
 ;; A temporary test file
 (import (scheme base ) (scheme write))
 
-;(
-;(lambda ()
+;; TODO: begin splicing does not work at top-level
+((lambda ()
   (begin
     (define tmp1 1)
     (define tmp2 2))
   
   (write `(,tmp1 ,tmp2))
-;))
+))