Index: csc.scm.in
===================================================================
RCS file: /cvsroot/chicken/chicken/csc.scm.in,v
retrieving revision 1.7
diff -u -r1.7 csc.scm.in
--- csc.scm.in	7 Jul 2004 21:25:49 -0000	1.7
+++ csc.scm.in	3 Oct 2004 07:19:34 -0000
@@ -540,7 +540,7 @@
 		       (cond [(char=? #\l (string-ref arg 1))
 			      (if win
 				  (set! object-files
-				    (append object-files (list (string-append (substring arg 1) ".lib"))) )
+				    (append object-files (list (string-append (substring arg 2) ".lib"))) )
 				  (set! link-options (append link-options (list arg))) ) ]
 			     [(> (string-length arg) 2)
 			      (set! rest (append (map (lambda (o) (string-append "-" (string o))) (cdr (string->list arg))) rest)) ]