Index: /trunk/ccl/level-0/l0-misc.lisp
===================================================================
--- /trunk/ccl/level-0/l0-misc.lisp	(revision 5199)
+++ /trunk/ccl/level-0/l0-misc.lisp	(revision 5200)
@@ -82,6 +82,5 @@
     (let* ((len (length arg)))
       (%stack-block ((buf (1+ len)))
-        (%copy-ivector-to-ptr arg 0 buf 0 len)
-        (setf (%get-byte buf len) 0)
+        (%cstr-pointer arg buf)
         (ff-call 
          (%kernel-import target::kernel-import-lisp-bug)