From 778d9fd81f670230f8f4029cc74a7c114d10af72 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Nicol=C3=A1s=20Passerini?= <npasserini@gmail.com>
Date: Thu, 12 May 2016 14:07:05 +0200
Subject: [PATCH] Fix #18

---
 .../IceCommitModel.class/instance/initializePresenter.st        | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SVS-Git.package/IceCommitModel.class/instance/initializePresenter.st b/SVS-Git.package/IceCommitModel.class/instance/initializePresenter.st
index db9a462787..8c810bfbbc 100644
--- a/SVS-Git.package/IceCommitModel.class/instance/initializePresenter.st
+++ b/SVS-Git.package/IceCommitModel.class/instance/initializePresenter.st
@@ -1,5 +1,5 @@
 initialization
 initializePresenter
 	message acceptBlock: [ :text | 
-		text ifNotEmpty: [ self model commitWithMessage: message text ] ].
+		text ifNotEmpty: [ self halt. self model commitWithMessage: text asString ] ].
 	commitButton action: [ message accept ]
\ No newline at end of file