[cxml-cvs] CVS cxml/klacks

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/klacks
In directory clnet:/tmp/cvs-serv11293

Modified Files:
	klacks-impl.lisp 
Log Message:
klacks octet array fix (thanks to emarsden for the bug report)


--- /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/06/16 09:41:22	1.11
+++ /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/08/23 23:16:00	1.12
@@ -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