diff --git a/klacks/klacks-impl.lisp b/klacks/klacks-impl.lisp
index 54376bc..f785bce 100644
--- a/klacks/klacks-impl.lisp
+++ b/klacks/klacks-impl.lisp
@@ -162,7 +162,9 @@
 	       :entity-name "main document"
 	       :entity-kind :main
 	       :uri nil))
-	(apply #'make-source xstream args)))))
+	(apply #'make-source xstream args)))
+    (array
+     (make-source (cxml::make-octet-input-stream input)))))
 
 (defun %make-source
     (input &key validate dtd root entity-resolver disallow-internal-subset