--- a/MCHttpRepository.st	Wed Sep 07 14:04:54 2011 +0200
+++ b/MCHttpRepository.st	Wed Sep 07 14:05:01 2011 +0200
@@ -48,6 +48,7 @@
 		password: password
 ! !
 
+
 !MCHttpRepository methodsFor:'as yet unclassified'!
 
 asCreationTemplate
@@ -181,10 +182,11 @@
         | response |
         response := HTTPInterface get: self locationWithTrailingSlash, '?C=M;O=D' userName: self user password: self password.
         response responseCode ~= 200 
-            ifTrue: [self error: 'Could not access ', location].
+            ifTrue: [self error:('Could not access "',location,'" (',response response asString,')')].
         ^ self parseFileNamesFromStream: response data readStream
 
     "Modified: / 14-09-2010 / 19:16:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2011 / 12:34:23 / cg"
 !
 
 description
@@ -224,11 +226,11 @@
 !MCHttpRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.3 2011-08-20 12:03:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.4 2011-09-07 12:05:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.3 2011-08-20 12:03:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCHttpRepository.st,v 1.4 2011-09-07 12:05:01 cg Exp $'
 !
 
 version_SVN