Index: /branches/working-0711/ccl/level-1/linux-files.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 12967)
+++ /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 12968)
@@ -960,6 +960,6 @@
       (funcall function argv))))
 
-(defmacro with-string-vector ((var &rest strings) &body body)
-  `(call-with-string-vector #'(lambda (,var) ,@body) ,@strings))
+(defmacro with-string-vector ((var strings) &body body)
+  `(call-with-string-vector #'(lambda (,var) ,@body) ,strings))
 
 (defloadvar *max-os-open-files* #-windows-target (#_getdtablesize) #+windows-target 32)