--- a/ZipArchive.st	Fri Nov 19 16:57:27 2010 +0100
+++ b/ZipArchive.st	Fri Nov 19 17:47:48 2010 +0100
@@ -4128,8 +4128,9 @@
 !
 
 addString: aString as: path
-    ^ self 
-        addFile: path fromStream: (aString readStream)
+    ^ self addFile: path fromStream: (aString readStream)
+
+    "Modified: / 19-11-2010 / 17:47:26 / cg"
 !
 
 basicAddFile:aFileName withContents:data compressMethod:theCompressMethodArg asDirectory:isDirectory
@@ -4137,11 +4138,6 @@
 
     |zipEntry theCompressedData curTime curDate theZipFileName theCompressMethod|
 
-(aFileName startsWith:'Project') ifFalse:[
-(aFileName startsWith:'Doc') ifFalse:[
-self halt
-].
-].
     (file isNil or: [mode ~~ #write]) ifTrue: [
         ^ self error: 'ZipArchive not open for writing ...'.
     ].
@@ -4208,7 +4204,7 @@
     ].
 
     "Created: / 18-11-2010 / 19:31:10 / cg"
-    "Modified: / 19-11-2010 / 15:39:26 / cg"
+    "Modified: / 19-11-2010 / 17:47:01 / cg"
 ! !
 
 !ZipArchive methodsFor:'writing - stream'!
@@ -5001,11 +4997,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.87 2010-11-19 15:57:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.88 2010-11-19 16:47:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.87 2010-11-19 15:57:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.88 2010-11-19 16:47:48 cg Exp $'
 ! !
 
 ZipArchive initialize!