--- a/ZipArchive.st	Wed Jan 14 12:37:52 2009 +0100
+++ b/ZipArchive.st	Wed Jan 14 12:38:57 2009 +0100
@@ -4042,11 +4042,11 @@
 
     self addDirectory: archiveDirectoryName.
     osDirectory recursiveDirectoryContentsDo: [:entry|
-        fileNameOrDirectoryEntry := osDirectory construct: entry. self halt.
+        fileNameOrDirectoryEntry := osDirectory construct: entry. 
         fileNameOrDirectoryEntry isDirectory ifTrue: [
             self addDirectory: (archiveDirectoryName, '/', entry).
         ] ifFalse: [
-            fileNameOrDirectoryEntry readingFileDo: [:aStream|    self halt.
+            fileNameOrDirectoryEntry readingFileDo: [:aStream|    
                 self addFile: (archiveDirectoryName, '/', entry) 
                      fromStream: aStream 
                      compressMethod: theCompressMethod.
@@ -4166,7 +4166,7 @@
                     (theCompressMethod == COMPR_STORED) ifTrue: [
                         file nextPutBytes:nextBlockSize from:buffer startingAt:1.
                     ] ifFalse:[
-                        self halt "/ cannot happen
+                        self error "/ cannot happen
                     ]
                 ].
             ].
@@ -4258,7 +4258,7 @@
             zipEntry compressedSize: zipEntry uncompressedSize.
             theCompressedData := data.
         ] ifFalse:[
-            self halt "/ cannot happen
+            self error "/ cannot happen
         ].
     ].
 
@@ -4671,7 +4671,7 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.71 2009-01-14 11:37:52 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.72 2009-01-14 11:38:57 sr Exp $'
 ! !
 
 ZipArchive initialize!