Index: /trunk/ccl/level-0/l0-aprims.lisp
===================================================================
--- /trunk/ccl/level-0/l0-aprims.lisp	(revision 859)
+++ /trunk/ccl/level-0/l0-aprims.lisp	(revision 860)
@@ -82,5 +82,5 @@
   (multiple-value-bind (vector offset) (array-data-and-offset s)
     (unless (typep vector 'simple-base-string) (report-bad-arg s 'base-string))
-    (values vector offset (the fixnum (+ (the fixnum offset) (the fixnum (length s)))))))
+    (values vector offset (length s))))
 
 (defun make-gcable-macptr (flags)