--- a/HttpURI.st	Tue Oct 22 12:20:05 2019 +0200
+++ b/HttpURI.st	Tue Oct 22 14:23:19 2019 +0200
@@ -102,6 +102,12 @@
 "/                    accept:#('*/*')  
 "/                    fromDocument:nil.
 
+    response isErrorResponse ifTrue:[
+        ReadError 
+            raiseRequestWith:response 
+            errorString:('HTTP get of "%1" failed (%2)' bindWith:self asString with:response responseCode).
+    ].
+
     headerInfo := response headerInfo.
     mime := headerInfo at:'content-type' ifAbsent:nil.
     mime notNil ifTrue:[
@@ -121,7 +127,7 @@
     "
 
     "Modified: / 18-03-2019 / 10:57:56 / Claus Gittinger"
-    "Modified (comment): / 22-10-2019 / 12:19:53 / Stefan Vogel"
+    "Modified: / 22-10-2019 / 12:33:44 / Stefan Vogel"
 ! !
 
 !HttpURI methodsFor:'testing'!
@@ -142,5 +148,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !