--- a/GitSourceCodeManager.st	Thu Jun 20 18:07:55 2013 +0200
+++ b/GitSourceCodeManager.st	Fri Jun 21 00:51:56 2013 +0200
@@ -398,7 +398,7 @@
     path exists ifFalse:[
         subDir := moduleName asFilename.
         self executeGitCommand:'checkout ',subDir name inDirectory:self repositoryName.
-self halt.
+        self breakPoint:#cg.
     ].
     ^ path exists
 
@@ -451,13 +451,13 @@
     ].
 
     (self executeGitCommand:'add ',relPath name inDirectory:self repositoryName) ifFalse:[
-        self halt
+        self halt:'git command failed'
     ].
 
     out := WriteStream on:(String new:100).
     err := WriteStream on:(String new:100).
     (self executeGitCommand:'status --porcelain' outputTo:out errorTo:err inDirectory:self repositoryName) ifFalse:[
-        self halt.
+        self halt:'git command failed'
     ].
     (out contents withoutSeparators isEmptyOrNil) ifTrue:[
         (err contents withoutSeparators isEmptyOrNil) ifTrue:[
@@ -467,7 +467,7 @@
     ].
     logArg := logMessage copyReplaceAll:$" withAll:''''''.
     (self executeGitCommand:'commit -m "',logArg,'"' inDirectory:self repositoryName) ifFalse:[
-        self halt
+        self halt:'git command failed'
     ].
     ^ true
 
@@ -652,11 +652,11 @@
 !GitSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/GitSourceCodeManager.st,v 1.8 2013-02-08 18:40:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/GitSourceCodeManager.st,v 1.9 2013-06-20 22:51:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/GitSourceCodeManager.st,v 1.8 2013-02-08 18:40:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/GitSourceCodeManager.st,v 1.9 2013-06-20 22:51:56 cg Exp $'
 ! !