--- a/Smalltalk.st	Thu Aug 04 12:07:34 2011 +0200
+++ b/Smalltalk.st	Thu Aug 04 21:35:11 2011 +0200
@@ -7146,7 +7146,7 @@
     [aStream atEnd] whileFalse:[
         line := aStream nextLine.
         lineNo := lineNo + 1.
-        line isNilOrEmptyCollection ifFalse:[
+        line notEmptyOrNil ifTrue:[
             (line startsWith:'#') ifFalse:[
 
                 "/ must do it manually, caring for quoted strings.
@@ -7188,7 +7188,7 @@
     ].
 
     "Modified: / 06-03-2011 / 18:17:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-07-2011 / 06:52:51 / cg"
+    "Modified: / 04-08-2011 / 21:35:00 / cg"
 ! !
 
 !Smalltalk class methodsFor:'system management-packages'!
@@ -7640,11 +7640,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.968 2011-08-01 08:09:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.969 2011-08-04 19:35:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.968 2011-08-01 08:09:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.969 2011-08-04 19:35:11 cg Exp $'
 !
 
 version_SVN