[py-configparser-cvs] r17 - branches/1.0.x

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Feb 11 17:07:41 2008
New Revision: 17

Modified:
   branches/1.0.x/parser.lisp
Log:
Port r16 fix to 1.0.x branch.

Modified: branches/1.0.x/parser.lisp
==============================================================================
--- branches/1.0.x/parser.lisp	(original)
+++ branches/1.0.x/parser.lisp	Mon Feb 11 17:07:41 2008
@@ -143,7 +143,7 @@
           until (eq c :eof)
           if (eql c #\[)
           do (setf *current-section*
-                   (ensure-section p (read-section-name p s)))
+                   (section-name (ensure-section p (read-section-name p s))))
 
           else if (is-whitespace c)
           do (skip-empty-line s)