--- a/Archiver.st	Tue Nov 29 19:37:56 2011 +0100
+++ b/Archiver.st	Tue Nov 29 20:19:32 2011 +0100
@@ -1355,7 +1355,7 @@
 !
 
 getCommandToListFiles:aColOfFiles 
-    |cmd template|
+    |cmd headlessCmd template|
 
     cmd := self class unzipCommand.
 
@@ -1366,7 +1366,15 @@
         template := '"%1" -Z -m -h "%2"'
     ].
     OperatingSystem isMSDOSlike ifTrue:[
-        self halt.
+        cmd asFilename baseName = 'WinRAR.exe' ifTrue:[
+            headlessCmd := cmd asFilename directory construct:'rar.exe'.
+            headlessCmd exists ifTrue:[
+                cmd := headlessCmd.
+                template := '"%1" l "%2"'
+            ].
+        ] ifFalse:[
+            self halt.
+        ]
     ].
 
     template notNil ifTrue:[
@@ -1385,7 +1393,7 @@
     ].
     ^ nil.
 
-    "Modified: / 16-09-2011 / 17:25:40 / cg"
+    "Modified: / 29-11-2011 / 20:19:18 / cg"
 !
 
 getCommandToRemoveFiles:aColOfFiles 
@@ -1407,11 +1415,11 @@
 !Archiver class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.37 2011-11-29 18:37:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.38 2011-11-29 19:19:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.37 2011-11-29 18:37:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.38 2011-11-29 19:19:32 cg Exp $'
 ! !
 
 Archiver initialize!