--- a/ZipArchive.st	Mon Jun 08 18:35:34 2009 +0200
+++ b/ZipArchive.st	Wed Jun 10 14:53:07 2009 +0200
@@ -4043,11 +4043,12 @@
         ^ self
     ].
 
-    self addDirectory: archiveDirectoryName.
+    "do not create directories (isDirectory = true) - they are not compatible between operating systems"
+"/    self addDirectory: archiveDirectoryName.
     osDirectory recursiveDirectoryContentsDo: [:entry|
         fileNameOrDirectoryEntry := osDirectory construct: entry. 
         fileNameOrDirectoryEntry isDirectory ifTrue: [
-            self addDirectory: (archiveDirectoryName, '/', entry).
+"/            self addDirectory: (archiveDirectoryName, '/', entry).
         ] ifFalse: [
             fileNameOrDirectoryEntry readingFileDo: [:aStream|    
                 self addFile: (archiveDirectoryName, '/', entry) 
@@ -4063,6 +4064,10 @@
 !
 
 addDirectory: aDirectoryName
+    "do not create directories (isDirectory = true) - they are not compatible between operating systems"
+
+    <resource: #obsolete>
+
     ^ self addFile: aDirectoryName withContents: nil compressMethod: 0 asDirectory: true.
 !
 
@@ -4200,6 +4205,8 @@
 !
 
 addFile: aFileName withContents: data compressMethod: theCompressMethodArg asDirectory: isDirectory
+    "do not create directories (isDirectory = true) - they are not compatible between operating systems"
+
     |zipEntry theCompressedData curTime curDate theZipFileName theCompressMethod|
 
     (file isNil or: [mode ~~ #write]) ifTrue: [
@@ -4674,7 +4681,7 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.73 2009-02-04 11:03:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.74 2009-06-10 12:53:07 stefan Exp $'
 ! !
 
 ZipArchive initialize!