Index: /trunk/ccl/lib/db-io.lisp
===================================================================
--- /trunk/ccl/lib/db-io.lisp	(revision 412)
+++ /trunk/ccl/lib/db-io.lisp	(revision 413)
@@ -1113,5 +1113,5 @@
     (declare (fixnum n))
     (if (zerop n)
-      (values nil 1)
+      (values nil (1+ p))
       (let* ((pname (make-string n)))
         (%copy-ptr-to-ivector buf (1+ p) pname 0 n)