--- a/ZipArchive.st	Sun Jan 09 13:11:36 2011 +0100
+++ b/ZipArchive.st	Fri Jan 21 00:15:41 2011 +0100
@@ -3756,6 +3756,26 @@
     "Modified: / 30.3.1998 / 17:13:47 / cg"
 ! !
 
+!ZipArchive methodsFor:'queries'!
+
+isValidPath: anArchivePathName
+    ^ self members
+        contains:[:aMember |
+            |fn|
+
+            fn := aMember fileName.
+            ((fn startsWith:anArchivePathName,'/') or:[(fn = anArchivePathName)])
+        ].
+
+    "/ cg: wrong - what about (isValidPath:'foo'), if there is a file named 'foobar' ?!!
+"/    self members do: [:aMember|
+"/        (aMember fileName startsWith:anArchivePathName) ifTrue:[
+"/            ^ true
+"/        ].
+"/    ].
+"/    ^ false
+! !
+
 !ZipArchive methodsFor:'reading'!
 
 extract:fileName
@@ -3958,26 +3978,6 @@
         zipArchive:self.
 ! !
 
-!ZipArchive methodsFor:'testing'!
-
-isValidPath: anArchivePathName
-    ^ self members
-        contains:[:aMember |
-            |fn|
-
-            fn := aMember fileName.
-            ((fn startsWith:anArchivePathName,'/') or:[(fn = anArchivePathName)])
-        ].
-
-    "/ cg: wrong - what about (isValidPath:'foo'), if there is a file named 'foobar' ?!!
-"/    self members do: [:aMember|
-"/        (aMember fileName startsWith:anArchivePathName) ifTrue:[
-"/            ^ true
-"/        ].
-"/    ].
-"/    ^ false
-! !
-
 !ZipArchive methodsFor:'writing'!
 
 addArchiveDirectory: archiveDirectoryName fromOsDirectory: osDirectoryName
@@ -4493,35 +4493,31 @@
 !
 
 crc32
-    "return the value of the instance variable 'crc32' (automatically generated)"
-
     ^ crc32
 
-    "Created: / 29.3.1998 / 20:03:00 / cg"
+    "Created: / 29-03-1998 / 20:03:00 / cg"
+    "Modified: / 21-01-2011 / 00:04:48 / cg"
 !
 
 crc32:something
-    "set the value of the instance variable 'crc32' (automatically generated)"
-
     crc32 := something.
 
-    "Created: / 29.3.1998 / 20:03:00 / cg"
+    "Created: / 29-03-1998 / 20:03:00 / cg"
+    "Modified: / 21-01-2011 / 00:04:52 / cg"
 !
 
 data
-    "return the value of the instance variable 'data' (automatically generated)"
-
     ^ data
 
-    "Created: / 9.4.1998 / 13:05:03 / cg"
+    "Created: / 09-04-1998 / 13:05:03 / cg"
+    "Modified: / 21-01-2011 / 00:04:57 / cg"
 !
 
 data:something
-    "set the value of the instance variable 'data' (automatically generated)"
-
     data := something.
 
-    "Created: / 9.4.1998 / 13:05:03 / cg"
+    "Created: / 09-04-1998 / 13:05:03 / cg"
+    "Modified: / 21-01-2011 / 00:05:00 / cg"
 !
 
 dataStart
@@ -5022,11 +5018,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.90 2010-12-22 11:23:51 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.91 2011-01-20 23:15:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.90 2010-12-22 11:23:51 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.91 2011-01-20 23:15:41 cg Exp $'
 ! !
 
 ZipArchive initialize!