From 2e94373013fcf745d311eab6713379b207320728 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Thu, 23 Aug 2007 23:16:00 +0000
Subject: [PATCH] klacks octet array fix (thanks to emarsden for the bug
 report)

---
 klacks/klacks-impl.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/klacks/klacks-impl.lisp b/klacks/klacks-impl.lisp
index f785bce..065a6f2 100644
--- a/klacks/klacks-impl.lisp
+++ b/klacks/klacks-impl.lisp
@@ -137,8 +137,7 @@
 	      (make-stream-name
 	       :entity-name "main document"
 	       :entity-kind :main
-	       :uri (pathname-to-uri
-		     (merge-pathnames (or pathname (pathname input))))))
+	       :uri (safe-stream-sysid input)))
 	(apply #'make-source xstream args)))
     (pathname
       (let* ((xstream