ResourcePack.st
changeset 158 34bade266dec
parent 145 ac7088b0aee5
child 177 13183faec07b
--- a/ResourcePack.st	Sun Jul 23 04:29:59 1995 +0200
+++ b/ResourcePack.st	Fri Jul 28 01:54:05 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.16 1995-05-17 12:22:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.17 1995-07-27 23:53:24 claus Exp $
 '!
 
 !ResourcePack class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.16 1995-05-17 12:22:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.17 1995-07-27 23:53:24 claus Exp $
 "
 !
 
@@ -404,7 +404,8 @@
 	name := String 
 		    readFrom:stream 
 		    onError:[('RESOURCEPACK: invalid line <',lineString,'>') errorPrintNL. nil].
-	l := stream position.
+"/ OLD: l := stream position
+	l := stream position + 1.
 
 "/                          l := lineString indexOf:$' startingAt:2.
 "/                          l ~~ 0 ifTrue:[