--- a/ZipArchive.st	Mon Jun 16 14:33:43 2008 +0200
+++ b/ZipArchive.st	Mon Jun 16 15:01:12 2008 +0200
@@ -3331,7 +3331,7 @@
             validZipFileName isNil ifTrue:[
                 validZipFileName := theElement.
             ] ifFalse:[
-                validZipFileName := ((validZipFileName asFilename) construct:theElement) name.
+                validZipFileName := (validZipFileName, '/', theElement).
             ].
         ].
     ].
@@ -4594,7 +4594,7 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.69 2008-06-16 12:33:43 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.70 2008-06-16 13:01:12 ab Exp $'
 ! !
 
 ZipArchive initialize!