Fix bug: GET-OUTPUT-STRING! would always return a null string.

diff --git a/v7/src/runtime/strout.scm b/v7/src/runtime/strout.scm
index c6dbc47b0c40a3fe15c361f8954f2e4a4f6c700c..8144a30d6ae38050046ae2cb59766499d495a5ba 100644 (file)
--- a/v7/src/runtime/strout.scm
+++ b/v7/src/runtime/strout.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: strout.scm,v 14.27 2007/01/05 21:19:28 cph Exp $
+$Id: strout.scm,v 14.28 2007/01/08 03:57:22 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -127,11 +127,12 @@ USA.
               (lambda ()
                 (if chars
                     (let ((s chars))
+                      (set-string-maximum-length! s index)
                       (set! chars #f)
                       (set! index 0)
-                      (set-string-maximum-length! s index)
                       s)
                     (make-string 0)))))
            (lambda ()
              (without-interrupts
-              (lambda () index))))))
\ No newline at end of file
+              (lambda ()
+                index))))))
\ No newline at end of file