diff --git a/test2.scm b/test2.scm
index a00bcb5b..d7105d87 100644
--- a/test2.scm
+++ b/test2.scm
@@ -1,8 +1,9 @@
 (import (scheme base)
         (scheme file)
         (scheme write))
-  (apply make-vector '())
-  1
+
+(write
+  (string-set! "abc" 1 #\x))
 ;
 ;(map
 ;  (lambda (_)