diff --git a/utils.lisp b/utils.lisp
index 3525086..aa17f4f 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -414,7 +414,7 @@
   (loop for next = (read-next-until stream #\])
 	while next
 	collect next into objects
-	finally (return `(export ,@objects))))
+	finally (return `(defexport ,@objects))))
 
 (defun top-level-reader (stream char)
   (multiple-value-bind (thing okay) (sexpr-reader stream char)