--- a/CVSSourceCodeManager.st	Wed May 29 15:46:52 2013 +0200
+++ b/CVSSourceCodeManager.st	Wed May 29 15:57:39 2013 +0200
@@ -5005,10 +5005,11 @@
                     outputTo:outStream
                     errorTo:errorStream.
         (result not or:[errorStream size ~~ 0]) ifTrue:[
-            SourceCodeManagerError raiseWith:errorStream contents errorString:' cvs tag failed: ', pathesInModuleAsArgument.
-        ].
-        (outStream contents asStringCollection contains:[:someLine| someLine startsWithAnyOf:'WE']) ifTrue:[
-            SourceCodeManagerError raiseWith:outStream contents errorString:' cvs tag could not be set: ', pathesInModuleAsArgument.
+            SourceCodeManagerError raiseRequestWith:errorStream contents errorString:' cvs tag failed: ', pathesInModuleAsArgument.
+        ] ifFalse:[
+            (outStream contents asStringCollection contains:[:someLine| someLine startsWithAnyOf:'WE']) ifTrue:[
+                SourceCodeManagerError raiseRequestWith:outStream contents errorString:' cvs tag could not be set: ', pathesInModuleAsArgument.
+            ].
         ].
     ].
 
@@ -5154,11 +5155,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.458 2013-05-29 13:46:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.459 2013-05-29 13:57:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.458 2013-05-29 13:46:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.459 2013-05-29 13:57:39 cg Exp $'
 ! !